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The reduction of the 0(e‘^) integrc differential equations 
derived in [1] to ordinary differential equations using a set of 
orthogonal functions was described in [2] , Attention was focused 
on the hover flight condition. 

Since the writing of [ 2 ] , we have also decided to evaluate the 
set of Galerkin integrals that appear in the reduced equations by 
making use of nonrotating beam modes . Although a large amount of 
computer time was needed to accomplish this task# the Galerkin 
integrals so evaluated were stored on tape on a permanent basis for 
future use. Several of the coefficients were also obtained in 
closed form in order to check the accuracy of the niimerical 
computations . 

The equilibrium solution to the set of 3n equations obtained 
as described in [2] was determined as the solution to a minimization 
problem as follows. Let the 3n equilibriiim equations be written in 
general form as 

0 ( 1 ) 


^vi 


^wi / . .. - 0 


fgi (Xj_,X2, . . . - 0 


( 2 ) 

(3) 


for i = 1,2,. ../n. Here [x^,X 2 , . . • /X^] denote the components of the 
vector of equilibrium deflections 

^'^el'^e2' • • * '^el'"e2'* ’ * *®el'®e2' * * * '®en^ * 

When non-rotating normal modes are used, the boundary conditions at 
X = 0 are automatically satisfied and, thus, m = 3n. When Legendre 
polynomials are used, satisfaction of the boundary conditions at 
X = 0 require four constraint equations to be satisfied (two for the 
lead-lag deflections and two for the flap deflections) , and the 



number of unconstrnined variables in aquations (1) to (3) is then 
ra » 3n-4. 

The solution to the equations was obtained by finding the vector 
that minimizes the function 


n 


fA I (f 

i=l 


VI + * *9i> 


(4) 


A listing of the computer program written to solve this problem 
is included in this report. The Galerkin coefficients (using either 
non-rotating normal modes or Legendre coefficients) were read from 
the appropriate files of the tape where they were stored. A copy of 
the computer programs written to evaluate the Galerkin coefficients 
are also included here (programs COEPPREE, where non-rotating normal 
modes were used, and COEPPPOL, where Legendre polynomials were used) . 

The vector x A [x^,X 2 , . . . ,x^] , corresponding to the minimum of 

f, was obtained by making use of "standard" subroutine packages. 

Convergence problems when using the IMSL package ZXMIN were encountered 

for a number of the cases tried. The IBM SSP packages DPMCG and DPMFP 

have given the "best" results so far. They are the ones being used 

in the program listings enclosed. For several of the test cases, one 

of these packages take f to about 10 . It was observed that when 

the vector x, corresponding to such value of f, is used as an initial 

"guess" for the other package, the value of f is then decreased to 
-20 

about 10 . The tip deflections were then calculated and found to 

agree well with test cases taken from [3] . 

In order to use the above subroutine. packages , the gradient compon- 
ents of f needed to be determined. Two different approaches were 
used to determine them, and both were programmed in the enclosed 
listings. One such approach, which may present numerical difficulties 




for some cases, was to approximate 3f/9Xj (j - l,2,...,k) as 

9 f /9x j = [f(x 2 ^,>«*f X j ” A f , , , f “ f(x 2 ^/,.., x j + A , • • • , ] / 2 { A ) 

for a sufficiently small value of A. The other approach was to use 
an analytical expression for 9f/9Xj. 

The functions f, . , f, . and f^ . are of the following form, with 

VI Wi Ql 

summation in j and k implied: 

f . =* (VJ) . V . + (WJ) , w . + (TJ) . 0 . 
ai 3 e: D D ©D 


+ V^.t(vv),^ + (VW)^ + (VT), 


+ w^.tdJW). + (WT)j + (TT)j e^. 6^^, 


+ v^. v^^t(vw) + (VW) 


4- v^. v^^[(VWW) ®eL' 


+ W^. w^,^[(www) + (WWT) 


+ [(VTT) v^, + (WTT)^^^ W^. + (TTT) 0^^ (5) 


(for a = v,w,0), where (VJ) (W) , etc., denote the respective 

3 

coefficients of the terms v -, v . v , , etc. These coefficients 

e^ e^ ek 

are functions of the Galerkin coefficients, of problem parameters 
such as collective pitch and pre-cone angle, and of the inflow ratio 
X. These coefficients would be independent of the elastic deflections 
if X were not dependent on these same deflections. For these cases, 
9f^i/9Xj x^ould have a relatively simple form that can be easy 
expressed in algorithm form. For example, 


» (VJ) . + t(W) + (VWJj), + (VT)^j^ 6^,^ 




+ (VW) ^,^11 + t(WT) + (WT)^.^J 6^^ 


+ Wekt<'™”>jkL ''el, + ®eLJ jkL ®ek ®el, 


(6) 

The algorithm developed on the basis uf such expressions was 
incorporated in the subroutine used by the minimization package. 

The statements corresponding to this algorithm were included in 
subroutine FUNCTIN as "comment statements C," which can be converted 
to executable statements when appropriate. The program developed 
can also be useful on a study of the influence of the inflow modelling 
on the blade dynamics. 
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XRESPO^, TIME- (0,44) 


m. 

OF POOR QUALITY. 


//XXXXXXXL JOB (0,XXXXXX), 

/* JOBPARl't L I NES-200 
/■f^ROUTE PRINT RMT41 

/ /STEPl EXEC FDRTGCLG , REC I Glv|.- ( 256K , 768K ) 

//FORT. SYS IN DD # 

CALL HOVER (0,0. 05D0 , 0 . 05D0 ,1,0. DO ,0.1 DO , 

STOP 
EInID 

SUBROUTINE HOVER ( ILGDRE , BETAL, DBETA, NBETA , THETAL, DTHETA, NTHETA ) 

Iff ii. .?<• W .{f <<• .Jr ^ r .Jr w w V w w .jf .{f 

t PROGRAM TO DETERMINE THE EQUILIBRIUM DEFLECTIONS 
<r OF A ROTOR BLADE IN HOVER 

•)f ILGDRE^^O IF NON-ROTATING NORMAL MODES ARE USED t 

.Jt ILODRE-i IF LEGENDRE POLYNOMIALS ARE USED ^ 

.ft. 

^r .JJ. 4r ^r .Jr 4r 4f ^r ^r ^r .Jr ^r ^f 4r if .Jr <r w ^HHf .fr ^f if if ^r <r <f >f .Jr Jf V 4f ^r « .JHf w 

I MPL I C I T REAL* 8 ( A-H , O-Z ) 

I NTEOER EPS2 , EPS3 , EPS3 JB 

D I MENSI ON X ( 24 ) , GRAD ( 24 ) , W ( 60 ) , F 1 1 ( 8 ) , ALPHA ( S ) , BBETA ( S ) , XG ( S' ) , 
1LI(S,S) ,U1 (3,8) ,FSQ( 10, 10, 10) , IER( 10, 10, 10) 


U 

C 

C 

c 

c 

c 

c 

c 

c 


u 


u 


1 ) 


DIMENSION DELTA(S,S) ,A(S) ,B(8)\C(3) ,D(i 


i ) , E ( 6! , tN , F ( S , I;. » •:• ) , U ( C. , 8 , 8 


29 

30 

31 

32 


1 ) , H ( 8 , ‘S' , 8 ) , X I ( 8 , 8 ) , X 'J ( 8 » 8 ) , X K ( 3. , 8 , 8 ) , X M ( .:i , Si ) , X N ( 8 , 8 ) , U ( cl , 8 ) , r‘ ( 8 , 8 ) 
2 , Q ( S' ) , R ( 8 , 8 ) , 8 ( S! ) , AS' ( S' , 8 , S' ) , BS! ( Si , S' , fel , S! ) , LSI ( 8 , 8 , Si , Si ) , Ely ( '8 , Si ) , 

S'ESI ( t<' , S , S' , Si ) , FS' ( S' » , S' , S' ) , GS> ( & , 'S' ) 1 Hy ( S' , S' , S' fSl i , X 1 S' ( 'S' 5 S' , S' , S > ) , X '-tSi ( si , S' ) , 

4 XKS* ( S' , S' ) , XLS' ( S' , S' ) , Xl’IS' ( ‘S' , S’ ) , Xi'l-y ( S' , S' , 'I' ) , OS' ( '8 , S> , S> ) , 8Si ( S* , S> , S' ) , G!Si ( Si , S* , S« 
5 ) , RS' ( S' , '8 , 8 » S' ) 1 S'Si ( S' , S' , S' , S' ) , TSi ( Si , S' , 'S' ) » EiEL ( 8 , S* ) , uELF ( S> , Si ) 

D I (''iENS'I UN IJS' ( S' , S' , S' ) , VS' ( 8 , Si » 'ci ) , WSi ( Si , 8 ) •, XSl ( 'Si , Si , Si ) , YSl ( Si , Si , SI ) , Z8 ( 8 , Si, Si > 
1 ) , A4 ( SI , Si , Si , S' ) , B4 ( SI , S' » SI , S* ) , 04 ( Si , 8 , Si , Si ) , Ei4 ( Si , Si , S> , SO , E4 ( Si , id , S« , S* ) , 

2F4 ( S' , Si , S' , iSi ) r G4 ( SI , '8 , Si , Si ) , H4 ( Si ) , X 1 4 ( S* , 8 , S* , Si ) , X'_I4 ( Si , Si , ) » Xi%4 ( Sf , iSi ) , 

siXL4 ( S , SI , S' , S' ) , XM4- ( 8 , Si , S> ) , Xl'14 ( '8 , Si ) , 04 ( Si , Si ) , F'4 ( Si , Si ? SN , 1X4 ( Si , 'c* , Si , Si ) , 
4R4(S,8,S,Si) ,84(8,8,8) ,T4(8,S) ,U4(S) , V4(8,S',S,8) ,W4(8,8,8) ,X41 (8,8) 
5,VETIP(S,4,6) ,WETIP(S,4,6) ,THETIP(S,4,6) ,PHIE(Si,4,6) . 

COMMON/ VAR i /EPS2 , EPS3 , EPS3 J3 , NFUNCT, i'JF 

C0MM0N/VAR2/X1, X2, XX3, X4, X-5, X6, X7, XS, X9, X;10, Xi 1 , X12, X13, X14, X15, 

1 X 1 6 , X 1 7 , X 1 S , X 1 9 , X20 , X2 1 , X22 , X23 , X24 , X2S , X26, X27 , X2S , X29 , X30 , X3 1 , 
2X32, X33, X34 , X35,.X36, X37, X-SSi, X39, X40, X41 , Y1 , Y2, YY3, Y4, Y5, Y6, Y7 , YS., 

3 Y9 , Y 1 0 , Y 11 , Y 1 2 , Y i 3 , Y i 4- , Y 1 5 , Y 1 6 , Y 1 7 , Y i 8 , Y i 9 , Y20 , Y2 1 , Y22 , Y23 , V24 , Z 1 , 
4Z2, Z/.8, Z4, Z.5, Z7 , A1 1 , Al2'» A21 , A 22 , ElCsi I » ijHuRD , Si I NB , CUS'B , SI2B , L.2B , 8BC8 , 
5C0S''PC, C2B0EA, SQRT2, S'SiC, SCCC, C0S2C, ST1’42'C, VEl'Jl , VEN, WEiXl , WEN, THETAC 
COMHON/VARSi/CDOOPI , SINPC, C2C, S2C, DEL, DELF, DELTA, A, B, C, D, E, F , 0, H, X I 

1 , X'J, XK, XM, XN, 0, P, Q, R, S, A3, B3, C3, D3, E3-, F3, G3, H3, XI3, X'J3, XKS, XL3, XM3 

2 , XN3 , 03 , P3 , Q3 , R3 , S3 , T3 , U3 , V3 , W3 , X3 , Y3 , Z3 , A4 , B4 , 04 , D4. , E4 , F4 , G4 , H4 , 
3X1 4 , X.J4 , XK4 , XL4 , Xl*14 , XN4 , 04 , P4 , Q4 , R4 , 84 , T4 , U4 , V4 , W4 , FX 1 

C0MMGN/VAR5/SIGHA, XG, U 
EXTERNAL FUIsICTB , FUNCTL 

FORMAT ( '' ********** *irifif *if.^ifif ififififififif if if ififif if* ifirif ififififif irifif ifirifififir*.,f*if ) 
FORMAT (■' ***** PRE-CONE ANGLE s BETA- '*,D14.7) 

FORMAT ('' COLLECTIVE PITCH : THETAC- -MU 4. 7) 

FORMAT (-^ NFUNCT VE(X-l) WE(X-l) THETAE(X-l) 

PHIE(X-^i } '-,9X, -'FSQ'MOX, -'lER') 


II 


THETAE(X- 

ER ' ) 

5(3X,D14.7) ,3X, 12) 

DATA *.»* *****ifif***7f*ifif"if**'*ii' 


33 FORMAT ( 

CALL UNDFLW 

**************** INPUT 
PI^-3. 141592654D0 
DETA^0.0146D0 
DZETA-0. 1654D0 
DCS I — 0 . 000S‘9D0 
DCSI —0 . 0056D0 
El C’ST— DETA+DZETA 
X.JETA-O.DO 
X JZETA^O . 000625DO 
XJCSI=XJETA*X'JZETA 
EA- 1 2Si . DO 
GAMA— 5. DO 
SIGHA-O.IDO 
CHORD-PI /40 
CDO-O. OIDO 
EPS2=1 
EPS3=.l 
EPS3'JB=1 

*************************************** 

* THE ROTOR INFLOW RATIO LAMBDA (DENOTED BY XLMBDA 

* THIS PROGRAH) IS CALCULATED EITHER IN FUNCTION 

* SUBPROGRAM FUNCTN (IF NON-RCiTATINO l‘4QRi'1AL 1‘IODES ARE 

* US'EZi) OR IN FUNCTION S.iJBPROGRAM FLINCT (IF LEGENDRE 

* POLYNOMIALS ARE USED). 


IN 


.ff* 

w 

* 

■<f 

* 

* 


ii 

i i 
1*1 




original, page is 

OF POOR QUALITY 


C 

a NFLINCT IS THE NLll-lBER DP NDI'J-ROTATING NORMAL MODES 
C (DR LEGENDRE POLYNOMIALS) USED. 

C # NFUNCT MUST BE AT LEAST 3 IF LEGENDRE POLYNOMIALS 5 
C ^ ARE USED. 

0 •a • ’><• 

DO 400 I--i,S 

READ ( 50 ) A ( I ) , B < I ) , e ( I) * Q ( I) » S ( I ) , H4 a ) , IJ4 < I ) 

400 CONTINUE 

DO 4il I~I, S 
DO 420 

READ C 50 ) DEL ( I , J ) .DELTA ( I . J ) , D ( I , J ) , E ( I , J ) , X K I . J ) , X .,1 < I . J ) 
READlSO) XM< I . J) . XN< I , J) , 0(1 , J) , P< I , J) , R( I . J) , D3( I . J5 
READ ( 50 ) G3 ( I , J ) , XUS (I . J ) , XN3 ( I , J ) , XL3 (I . J ) . Xl'13 ( I , J ) , W3 ( I , J ) 
R E A D < 5 0 ) X N 4 ( I . ) , X N 4 ( r , J ) , 0 4 (I . J ) . T 4 ( I , J ) 

420 CONTINUE 
411 CONTINUE 

Dli 4cI0 I ~ 1 1 S 
DO 440 J-1,S 

READ’^ 5o'^r~F ’( I , J , K ) . G < I . J , K ) . H < I , J 7 K ) . XK ( I , J » K ) , A3 ( I , J 7 K ) 
l.XNSn.U.K) 

READ ( 50 ) 03 (I , J, K ) , P3 ( I , U, K ) , 03 ( I , J, K ) . T3 ( I , J , N ) . U3 (I , J, K ) 
l.VSd.J.K) 

READ ( 50 ) X3 < 1 7 J, K ) 7 Y3 ( 1 7 J 7 K ) 7 Z3 ( 1 7 J 7 K ) , X J4 (I , U , K ) 7 XM4 ( I , J , N ) 
1,P4(I.J7K) 

READ ( 50 ) S4 ( 1 7 J, K > 7 W4 ( 1 7 J 7 K ) 

450 CONTINUE 
440 CONTINUE 
430 CONTINUE 

DO 460 1=1 7 3 
DO 470 J=1,S 
DO 430 K=1 7 S 
DO 4Tj' 0 L=i7S 

READ ( 50 ) B3 ( 1 7 J.’K. L ) , C3 ( I, J 7 K. L ) , E3 (I , J 7 K. L ) 7 F3( 1 7 U. K 7 L) 
l.HSd.J.K.D.XISd. J 7 K 7 L) 

R E A D ( 50 ) R 3 d 7 J 7 K 7 L ) 7 S 3 d 7 J 7 K 7 L ) 7 A 4 d 7 J 7 K . L) 7 B4 d 7 J 7 K 7 L ) 

1 ,C4d7 J,K7L) 7D4d7 J,K7L) 

READ (50) E4 d 7 J, K. L) , F4d 7 J» K. L) , G4( 1 7 J 7 K. L ) , XX4d , J, K. L) 
l7XL4(l7U7l'%7L)7 Q4 ( 1 7 U 7 K 7 L ) 

READ ( 50 ) R4 (1 7 J, K. L ) 7 V4 ( 1 7 J, K , L ) 

.490 CONTINUE 
430 CONTINUE 
470 CONTINUE 
460 CONTINUE 
C 

C •if 

C -Jf THE COEFFICIENTS DELFd.J) i* 

DO 500 1=1 7 3 
DO 501 -J-'l.S 
DELFd. J)=DELd, J) 

I F d . EQ . 1 . AND . I LGDRE . EQ . 1 ) DELF ( 1 , J ) --0 . DO 
501 CONTINUE 
500 CONTINUE 

C ■}«■ ' ' -if 

C 

ci -ff THE COEFFS. XGd) TO CALCULATE THE INFLOW RATIO -v<- 

XG d ) •■=! . 306562965D0 
XG ( 2 ) ~-0 .5411 96 1 00 1 DO 
XG(3)«XG(2) 

XG(4)=XGd ) 

XG(5)=-XG(1J 

XG(6)=-XG(2) 

XG(7)=XG(6) 

XG(3)=XG(5) 

C 

NMIN=3 

I F d LGDRE . EQ . 1 ) GO TO 1111 
NMIN=l 
C ■Jr4c4r4r4r-^t-Jt'-}v'5f 

C i THE COEFFICIENTS Uld,J) AND Ud,J) TO CALCULATE 
C He THE EQUILIBRIUM ELASTIC DEFLECTION PHIE AT X=1 AND 
C ■» THE INFLOW RATIO, RESPECTIVELY, WHEN NON-ROTATING « 

C Hr NORMAL MOliES ARE USED •sr 




* . ;:*':uix4«MrM><l>*. i.. > 


160. 

161. 
162. 

163. 

164. 
16.^, 

1 » 

167. 

168. 
169. 
176. 

171. 

172. 

173. 

174. 

175. 

176. 
127. 
1 / 8 ■ 
179, 

150. 

151. 

1 6,!l. a 

1 § 3 . 
184- 
185. 
136- 
187 - 
188. 
189. 
19Ci. 
191. 
J 92. 

193. 

194. 

195. 
196- 

197. 

1 98 . 

199. 

200 . 
201 . 
202 . 
203 . 
2 0 4 - 

205. 

206 . 

207. 

208. 

209. 

210. 
211 . 
212 . 

213. 

214. 

215. 

2 1 C< a 

217. 
2 1 8 • 
21? • 
.ll^O a 
ill.:!* 1 . 




m 

224. 

225. 

226. 
227. 

88'“/ 

y m 

.£!C* 1 m 

m 

m 

^ m 

X'Ct^ m 

236- 

wC«W / m 


‘Tt o 


3 1 ,l 8 
3112 

3111 


BBETA< n~0. 1875104068751 
BBETA ( 2 ) kO . 469409 1 1 3S0D 1 
BBETA < 3 ) «0 . 7S547574332D 1 
BBETA < 4 ) . 1 0995540735D2 
BBETA(5)«0. 1413716839102 
BBETA (6)^0. 17278759532D2 
BBETA C 7 ) «0 . 2042035225 1 D2 
BBETA < 8 ) «0 . 2356 1 944902D2 
ALPHA < 1 >>^0.7340955137600 
ALPH A ( 2 ) “0 . 1 0 1 84673 1 870 1 
ALPHA ( 3 > «0 . 9992244965200 
ALPHA ( 4 ) =»0 . 1 00003355330 1 
ALPHA ( 5 ) »Q . 999998559 1 1 DO 
ALPHA ( 6 ) «0 . 1 0000000o26D 1 
ALPHA < 7 > «0 . 9999999972900 
ALPHA<S>=1.D0 
NI*i 

DO 3111 I-1»S 

AUX 1 -ALPHA ( I ) ^^BBETA ( I > 

UK I, I)=2^^AUX1-Jfr'i^2 
AUX2-BBETA<I)^-ff2 ' 

AUX3»=AUX2-H"if2 

NJ-1 

DO 3112 J-K 8 
IF(J.EQ. I) GO TO 3113 
UK I , J ) ~4i^ AUX l4^AUX2^f ALPHA ( J > ->^BBETA ( J 
1 / s' BBETA ( J ) **4-AUX3 ) 

NJ--!*!..! 

CONTINUE 

NJ-H^1I 

CONTINUE 

U< K 1 >-0.362924601 
U(K2> -0.550578101 
U(K3>-0. 174495801 
LICK 4) -0.213^54401 
UCK5>-0. 156479901 
Lie 1,6) -0,370401200 
U(K7)«0. 193475301 
LI C 1, 8 > -0 . 824 70600- 1 
LI < 2 , 1) -“0 . 264760 1 02 
LI < 2 , 2 > »0 . 3029 1 8002 
UC2,3)=0. 1014S11D3 
LI C 2 , 4 > -0 . 2 1 6057002 
U (2,5) —0 . 287 1 45202 
LIC2, 6 >-0.436967402 
LI ( 2 , 7 > --0 . 68680770 1 
LI(2,8)-0.39S7049D2 
LI (3, 1 >>->0. 126188402 
LI ( 3 , 2 ) --0 . 1 42978903 
1.1(3, 3 >-0. 1421 241 02 
U(3,4)-0. 4318519D3 
1.1(3, 5 )=•<>. 117460603 
U ( 3 , 6 ) -0 . 362 1 5S0D2 
LI (3, 7 >-0.237732903 
LI ( 3 , 8 ) --0 , 404264502 
LI (4, 1 )-0. 119945902 
LI ( 4 , 2 ) «-0 . 6242567D2 
Li ( 4 , 3 ) --0 . 40389 1 1 03 
tj(4,4)=0. 13752 1902 
1.1 ( 4 , 5 ) -0 . 983403303 
1.1(4, 6 )-0. 419904503 
U s 4 , / ) "U . 1 888 <-io5IIi 2 
LI ( 4 , 8 > -0 . 532094003 
LI (5, l)--0.502iS59D2 
1.1(5, 2 )-0. J 11848303 
LI ( 5 , 3 > --0 . 2 i 3742 1 03 
1.1(5, 4)^-0. 107811104 
LI ( 5 , 5 ) >^0 . 1 63062303 
U(5,6)>-0. 1855181 04 
Ll(5, 7 >-0.805 43 1203 
LI(5,S)-0. 190867303 
LI ( 6 , 1 ) >^0 , 598328602 
LI ( 6 , 2 ) --0 . 2 1 7627 1 03 
LI ( 6,3) -0 . 02920 1 602 
U ( C' , 4 ) ——0 . •z<0jd~7 1 o / Oo 
U ( 6 , 5 ) --0 . 225875404 
U ( 6 , 6 > -0 . 249668603 
1.1 ( 6 , 7 > -0 . 344533404 
LI ( 6 , 8 > — . ill' 


ORfGIKAL PACE iff 
OF POOR QUALITY 


) w ( BBETA ( J > 's«"if2“NI*NJ')»‘AUX2) 


{Ttr' ,5 
4 tlWiS* 


t.i 


4!40 • 

241 . 

242. 

243. 

244. 

245. 
24l. 
247, 
24S, 
249. 
250 « 
251. 

254 . 

255. 

256. 

257. 
•"•cro 
x.^c> . 

259 . 

260 . 
261 . 
262 . 

263. 

264. 

265 . 

266 . 
267. 

CrA . 

26’?; , 

270. 

271 . 

272 . 

273. 

274. 
275-. 

276. 

277. 

275. 
279 . 
2E>0 • 
2S1 . 

•".‘C'-t: 

‘ ji C« 
|C>U.(V>* M 

256. 

257. 
28S. 

289 . 

290. 

>*Q 1 

X « 

JU •if* • 

293. 

294. 

295. 

296. 

297 . 

29 £; . 

299. 

300 . 

30 :i . 

302 . 

303. 

304. 

305. 

<;i0<:i . 

307 . 

308 . 

309. 

310. 
31 1 . 


i-i 

C 

c 


c 


Llf7» 1 ) --0.313755302 
U<7,2)-0.9192193D2 
U(7.3)w-0.2959916D3 
U{7r4)-- 0.711S023D2 
LI ( 7 , 5 ) --0 . 60S0909D3 
U<7,6)s-0.36S94S5D4 
U<V,7>«0.5970S72D2 
LK7,S)«0.5750219D4 
LKS, l)a-0.3461307D2 
LKS,2)«0.598S959D2 
U < S 1 3 ) »-0 . 2790705D2 
U ( 3 » 4 ) *=-0 . 5993094 
)J(S,5)«0.4059256L:;; 

U ( 6 * S ) ®0 . 32 1 3339D2 
GO TO 1113 
1111 DO 2 I»l,3 
Enj 3i » 3 

CALL FX4i(X41(I, J), I, J) 

X41 (J, I)«X41 ( I, J) 

3 CONTINUE 
2 CONTINUE 

DO 444 NI-l.S 

F 1 1 < N I ) «DSQRT < 2 . DO^^N I - 1 . DO ) 
444 CONTINUE 


OF POOR (JJALITY 


■if -if -jf -j S' -ff •W ■{f Hr -Jf -{f •Ji' 4f "ff ■!< ■{+ ■(< 'Jf "Jf -k -Jr •fr •Jc ■if w '{f 1 f ^ 


THE COEFFICIENTS 
POLYi'lONIALS ARE 


; Liia,.J) 
USED 


AND LKI.J) WHEN LEGENDRE 


■if 

it 


Lia, J), I, J) 


DO 1001 1=3,3 
DO 1002 J=2,S 
CALL FUUiail(I,J) 

1002 CONTINUE 
Lll i r, 1 )^0.D0 
U< I, 1 )=0.D0 

1001 CONTINUE 

DO 1003 i_Ul,S 
UHl , J)=O.DO 
IJU, J)=0.D0 
U1 (2, J)-O.DO 

-* U ( 2 , U ) — U . E^O 

1003 CONTINUE 

C Hf -ir 

C ■ir'ir'Ji'Hr'JrHr'irHr’ii'Hr'ir'if'if-irHf'Jr'irHr'ir'kHr'Hf'if'jf'fr'Fr'jr'jfHf •sr'Jr'srHrHf^ 

1113 SQRT2=DSQRT C 2 . DO ) 

CDOOP I =EPS2h^CD0/ ( 2 . DOhh-P I ) 

ZT-DETA-DZFTA 
DO 4 IBETA-1 ,h!BETA 
BETA--BETAL+DBETA^<< < I BETA- 1 5 
WRITE (6, 29) 

WRITE <6, 30) BETA 

uusB— Dcos ( B et a ) 

£INB=DSIN<BETA) 

S2B=SINBHtHr2 

C2B=C0SB'»fHf2 

02B0EA"EPS3Hf-C2B/EA 

Z4--EICSIhm:;2BCiEA 

SBCB-SI NE-»C:0SB 

X l =GAI’lA'«'CCiSB/6. DO 

X 9-CH0RDhh:.0SB/ 2 

X15-C2B0EAHrC:2B/4 

X16=EPS2HrXlHtSINB 

X2S— X 1 HrCOSB 

DO 5 ITHETA=--1 , NTHETA 

THETAC«THETAL+DTHETA^^< ITHETA-1 ) 

WRITE <6, 31) THETAC 
WRITE (6, 32) 

COSPC'-:DOOS < THETAC ) 

SI NPC=DSIN< THETAC) 


31C. 


SCCC-S I NPC-«-C.08PC 

*»• ,L m 


C2C:i-CCi£PC-frHr2 

*2* 1 4' 9 


S2i:.= i-C2C 

315. 


S3C=S2C'.f 8 1 NPC 

ci 1 6 . 


00S2C:-^2Hi-C.2C-i 

317. 


S.IN2C-2-«’3C0C 

i 'Zf ■ 

0'«-ir 

X2^-XLMBDA-^(EPS 

319. 

C'Jf'ir 

XX3-XLHBDA-i^C2 


30SPG— EF So'n’CHOREi'srS I NB/' 2 ) 
IWCDOOP I ■is-020 ) 




00*+ » 
OC<w * 

336. 

337 . 

O't'O 
<i>C>C ‘ . 

339. 

340. 
34.1. 

342. 

343. 

344. 

345. 

346. 

347. 
34te* • 

349. 

350. 


9 

554. 

356. 

357. 
353 . 

359. 

360 . 
36 . 

•T'A 1* 

3i6v* . 
364. 

•t'/t 

oC*^t . 

366. 
c^6o . 

369 . 

370. 

371. 

372. 

373. 

374. 

%.! / 4«< • 

376. 

377. 

T’70 

*!• / C* 9 

379. 

380. 
3>8l . 

•*I‘00 

•m* *>..• 9 
00*1* • 
OOA 

m 

•ZfOrr. 

Cl i.i 0 


COO 

S»> >•> ■ 

390 . 

391 . 


X4«CD00PH^C0&8<fC0SPC 

X5-EPS3JB* { X J§TA-X JZETA )*3CCC#SBCB 

X7»-27<+SCCC 

XIOkSINPC-^SINB 

xnsxio->^c2c 

X i2«DETA«S2C+DZETA*C2C 

X14wX12«C2B0EA 

X 17«EPS3-if XLMBDA*S2C^^C03PC 
X18-EPS3^XLMBDA#SINPC 
X20»EPS3#2#CD00P I «COSB*S I NPC#C2C 
X2 1 «EPSSii CHORD NBh^S2C/2 

X22«C2B0EA4^C0SB#SINPC^fC:0S2C/2 
X3S“l+24tS2C 

X23-EPSS*X 1 6-i*X3S-JfC0SPC 


onmmi rr::- . 

OF mon QUAur/ 


X25«EPS3^*X1#SINPC 

X26«SINB«C0S2C 

X27«X9->frSINPC 

X29«EPS3*XLMBDA#C0SPC 

X3.1-X2S^^SINPC 

X33-2^^C2C 

C«# X34 «EPS3#XLHBDA-Jr < i:.2C'-3*J<-S2C ) 

X36«G2C~S2C/2 
X37~X2S^C0SPC . 

X39--X3 1 * ( 2«C2C/3-S2C/2 ) 

X40-C2B«SINPC-^COS2C/2 
Yi-XJETASfS2C+XJZETA-J^C2C7XJCSI ^ 

Y2-SBCB+X37->^XLMBDA+Xli^CD00PI-!tX30<fC.03B"X16'«-CH0K'li/2 
YY3-EPS3 Y H^SBCB 

Y4«C2BCiEA^^(SBCB+X37^^XLMBDA)/2 
Y5«EPS2#X3H^C2B/EA 
Y6^DETA*C2C+.r'ZETA#S2C 
Y7--EPS3JB-»V1 kC2B 
Y10-EPS2-»2#Xjl0 
Y11«X16-}^C:0SPC 

Y 1 2~XLHBDA‘n‘SCcC 

Y 1 3~ ( 1 +EPS3<^2-»CD00P I "<<-S2C ) ■J^COSB-'^COSPC 
Y 1 5j=C2B0EA#C0SB'}fC0SPC'>>‘C2C 
Y1 6~EPS34r2i^Y 1 1 <^C0SPC*32C 
Y1 7=EPS3-«-X 1 •sfCOSPC 
Y13~2i^SINB^C2C 
Y19sSI|MPC<^C2C/2 
Y22- ( 1 “C2C/3+S2C ) /2 
„ Y23~i;:2B-JfC2C'JrCCiSPC 
Y24---X37-5tC2C 

Z l‘=EPS2'J^ ( X JZE7A-X JETA ) •}fi::2B-KSCCC , 

Z2-*EPSi3%<6AI''IA'ffC0SPC'J<‘ ( CHDRD*’*<'2 ) /96 
Z5~Z2*C2B 
7 u: 2 ■Jf SB C B 

ZZ3«EPS3^ ( XJZETA-X JETA) ^C0S2C-»tC2B 

DO 1 |vlFUNCT=^NI4IN,5 

NX’-^S^^NFUNCT 

IF( ILGDRE.EQ.O) GO TO 1112 

NX=NX~4 

C •}? •«■■}<' •if ■if -51 ■Jr if 

C ” 

1 

I F ( NFLINCT . EQ . 3 . OR . NFLINCT . EQ . 5 . OR . NFUNGT . EQ .7) 1 

G NA~C-I )iJi^(NFiJNCT+l ) 

A1"-=FI1 (NFUNGT) 

A2=FI1 <I'JFUNCT~1 ) 

A 1 1 =NAi^NFUNGT/ ( 2itA2 ) 

A 1 2--^*NA/ ( ( NFUNGT- i ) if A2 ) 

A2 1 ( NFLlNCT-2 ) / ( 2if A 1 ) 

A22-NA/ ( 2-Jf ( NFUNGT-1 ) -if A1 ) 

Gifif Ail.,A12,A2i,A22 ARE USED IN SUBROUTINE FUNCT TO ^ 

Gif if- VE ( NFUNGT- 1 ) t VE ( NFUNGT ) , WE < NFUNGT- 1 ) Ai4D WE ( t-FUNCT ) 

G * 

G ■H'-Jf-Jf'ifif’if-Sf'if'ififif-Jfif-ifif'if'if'if-ifif-if'if-ki^-if'ififif'if'k'ififif-Jfif’Jfif'ifif'if'if-Jfif'ffifif'^ifififif 
C THE VEGTOR X(I) USED IN THE OPTIMIZATION ROUTINE IS DEFINED 
C CX(l),X(2)r...X(3ifNFUNGT-4)3= . . 


ARE SATISFIED. THESE QUANTITIES, DENOTED HERE IN THE FFOGRA!'' 
VENl, VEN,WEN1 AND WEN^ RESPEGTIUELY, ARE CALCULATED IN THE 
SUBROUTINE FLINGT AND RETURNED AS A C0MM014 VARIABLE TO THIS 
PART OF THE PROGRAM. 

■if if INITIAL GUESS FOR THE VECTOR X(I) •-f-ffjfif--f'5f 


4 . 


r# r- 


ORlGlfSAL Pf;*;’ 

OF POOR 


iU2 DO & K«1.NX 
X<K)«O.DO 
6 CONTINUE 

NUHBER^O 

EST«0 

EPS»i.D-& 

LIMIT«GOO 

IF<ILGDRE.EQ. i ) GO TO 21 li 

SOOO CALL DFMCG < FUNCTB » NX » X , FSQ ( IBETA 1 1 THETA » NFUI'^CT ) . GRAD , EST , EPS , 
1 , I ER ( I BETA , ITHETA , NFUNCT ) . W ) 

C IF<FSQCIBETA,ITHETAiNFUNCT).LE.l.D-20) GO TO 2112 

NDmBERbNUMBER+1 

iAliO''^piFf'TfDfeTi?Nl?X?^ilS ITHETA, NFUNC.T) , GRAD, EST. EPS, 

1 LIMIT, IER( IBETA, ITHETA, NFUNCT) , W) 

GO TO 2112 

2111 CALL DFMCG(FUNCTL,NX, X, FSCU IBETA, ITHETA, NFUNCT) , GRAD, EST, EPS, 

C ^ ’ WRITEfllS) ^JlFui5cT,'^FSQaB^^ ITHETA, NFUNCT) , IER( IBETA, ITHETA, 
C IT) 

C DO S8S 1=1, NX 

C WRITE<6,^f) X(I) 

C SSS CONTINUE 
GO TO 1114 

C -1^# TIP DEFLECTIONS WHEN NON-ROTATING NORMAL NODES ARE USED 

2112 VETIPA«O.DO 
WETIPA=O.DO 
THETPA«0. DO 
NVE1=2#NFUNCT 
NA=1 

PH 1=0. DO 

DO 777 I«l, NFUNCT 
VETIPA=UETIPA+2^^MA4<’X ( I ) 

WETIPA=WETIPA+2^^NA-tfX (NFUNCT+I ) 

TUErTC*A'-T*-l£?'rClAa.KIA.>:.V /KlliCr I T S 
I nc I r'rt"' I nci I f~ r»-»'lNrT«'A \ r»< v »i, a ■— * / 

DO 77S J=l, NFUNCT 
AUX«LI1 a , U ) #X C NFUNCT+J ) 

77S CONTINUE 

PHI^PHI-^AUXffXd) 

NA=-NA 

777 CONTINUE 

VET I P ( I BETA , I THETA , NFUNCT ) = VET I PA 
WETIP (IBETA, ITHETA, NFUNCT )«WET I PA 
THETPA=SQRT2#THETPA 
THET I P ( I BETA , I THETA , NFUNCT ) =THETP A 
PHIE( IBETA, ITHETA, NFUNCT )«THETAC4-THETPAf PH I 


GO TO 

■jf ir -Jf ■W -tr ■Jr -{f •W' ^ 

t TIP DEFLECTIONS WHEN LEGEi^lDRE POLYl'jOMI ALS ARE USED J 

^ VET I P= VE ( 1 ) 4* VE ( 2 ) ^SQRT ( 3 ) + VE ( 3 ) SORT ( 0 ) + . . . 

# WETIP=WE(l)+WE(2)<^SQRT(3)+WE(3)-iiSQRT(C:) + . . . ^ 

# THETAET IP=SQRT < 2 ) ( THETAE ( 1 ) -THET AE ( 2 ) +THETAE ( 3 ) - . . . ) •«• 

1114 NN=NFUNCT-2 

NVE1=2«NFUNCT 
DO 7 1=1, NN 
W(I)=X(I) 

Il=NN+2 

I2«NFUNCT+I 

W(I2)=X(ri) 

Il=NVEl-4 

I2=NVE1+I 

W(I2)«X(I1) 

7 CONTINUE 

W( NFUNCT- 1 )=VEN1 
W( NFUNCT )=VEN 
W(NVEi-l )=WEN1 
W(NVE1 )=WEN 
I1=3*NFUNCT 
W(I1-1 )=X(Ii-5) 

W(Il)=X(Ii-4) 

VETIPA^O.nO 

WETIPA=O.DO 

THETPA=O.DO 

NA=1 


LIMIT 


LIMIT 

NFUNC 


!|l: 


480. 

481 . 

482. 

483. 

484. 

485. 
* 48&, 

4S7. 

48S. 

439. 

490. 

491. 
492- 

^■! 

495. 

496. 

497. 
493. 

499. 

500. 

501. 

502. 

503. 

504. 

505. 

506. 

507. 
503. 
509. 
.510. 

511. 

512. 
.513, 


378 


877 


PHI-0. DO 

DO 377 I»1j.NFUNCT 
Il«.NFUNCT*ir 
I2aNVEl4l 

VETIPA«VETIPA+FI 1 { I )#W( I) 
WETIPA«WETIPA+FI1 ( II ) 
THETPAwTHETPA4NA^*W ( 12 ) 

DO 873 Ji^l»NFUNCT 
I1«NFUNCT+J 
AUX«UUI, J)->tW<Ii) • 

CONTINUE 

PHI«PHI+AUX#W(I) . 

NA»-NA 
CONTINUE 

y El I P < I BET A , I THETA , NFUNCT ) -VET I PA 


ORIGINAL fa:;* : 
OF POOR ^ 


514. 


515. 


516. 


517. 


518. 


519. 

9 

520. 


i^21. 


i.22. 


W ^ ■ 

SO 

524. 


.-.•.uwi . 

10 

526. 


.527. 

;L 

529 . 


530. 


531 . 


crO’TJ* 


w**«**«>^ a 


534. 


525 . 


536 • 


5.37. 


538. 

12 

539. 


540. 

1,1 

.54 1 . 


542. 


543. 

2 

544. 


545. 


546. 

13 

547. 


548. 


549. 


550. 


551. 


m 


5.53i. 


554. 


555. 

C 

556. 


557. 


558. 

i 

559. 



WETI P < I BETA 1 1 THETA , NFUNCT ) «^WET.I PA 
THETPA«S0RT2<*THETPA 
THETIPnBETA» I THETA, NFUNCT )«THETPA 
PHlEdBETA, I THETA, NFUNCT )«THETAC+THETPA+PH I 
533 WRITE<6,33) NFUNCT, VETIP( I BETA, ITHETA, NFUNCT) , WETIP< IBETA, ITHETA 
1 , NFUNCT ) , THET I P ( I BET A , T THETA , NFUNCT ) , PH I E (I BETA , I THET A , I'iFUNCT ) , 
2F=;SQ( IBETA, ITHETA, NFUNCT) , IER< IBETA, ITHETA, NFUNCT) 

WRITE<6,-a=) 

1 CONTINUE 
5 CONTINUE 
4 CONTINUE 
WRITE<6,29) 

RETURN 

END 

3UBR0UT I NE DDFI*ICG ( FUNCTB , NX , X , FSQ , GRAD , EST , EP3 , L I I'l IT , I ER , W ) 
IMPLICIT REAL^>S(A-H,0-Z) 

INTEGER EPS2,EPS3,EPS3JB 
DIMENSION X(24),GRAD<24),W(2),XY<24) 

CONMON/VARl /EPS2, EPS3, EPS3JB, NFUNCT, NF 
C0MM0N/VAR4/XY 
TnL= < ri-7 

IC0UNT»0 
IER=«0 

CALL FUNCTB < NX , X , FSQ 1 , GRAD ) 

XA«0.D0 
DO 50 K=i,NX 
XA«XA+GRAD(K)*#2 
CONTINUE 
STEP-FSQl/XA 
DO 1 K~1,NX 

X Y < K ) -=X ( K ) -STEP,^GRAD < K ) 

CONTINUE 
AUX~XY<1) 

NF-l 

FSQ2=--FUNCTN(ALIX) 

WR I TE C 6 , # ) I COUNT , FSQ 1 , FSQ2 
IF(FSQ2.UT.FSQ1) GO TO 11 
IF(FSQi.LFdOL) GO TO 12 
STEP'-STEP/2.,D0 
ICOUNT-ICOLINT+l 
IF ( I COUNT. LE. LIMIT) GO TO 10 
.IER«1 
FsQ-FSQl 
GO TO 13 

RAT I 0-FSQ 1 / FSQ2- 1 . DO 
DO 2 K-liNX 
X<fO-XY(K) 

CONTINUE 

IF(FSQ2.GT.T0L) GO TO 9 
FSQi=FSQ2 
RETURN 
END 

SUBROUT I i'JE FUNCTB ( l'4X , X , FSQ , GRAD ) 

INTEGER EPS2SEPS3,EPS3JB 

REALMS X, FSQ, GRAD, XY, FUNCTI'L XA, XA2, REPS, DSQRT, FI , F.2, GRADl 
D I MENS I ON X < 24 ) , OR AD ( 24 ) , X Y ( 24 ) , GRAD 1(24) 

COMMON/VARl /EPS2, EPS3, EPS3JB, NFUNCT, NF 
DATA REPS/ Z 34 1 0000000000000/ 

XA-l.D-6 
XA~DSQRT(REPS) 

DO 1 I-1,NX 
XY(I)-X(I) 

CONTINUE 

CALL FLiNCTN ( NX , X , FSQ , GRAD ) 



tr *«l**i.' 


560. 

561. 

562. 

563. 

564. 

565. 


>S. 

I>‘P m 
^0. 
'1. 


c 

c 

c 

c 


u 

c 


ORIGINAL PAGE !3 
OF POOR QUALITY 

>CA 2 « 2 -:XA 

DO 2 NFal^NX 

XY<NF)i«X<NF)+XA 

CALL rliNCTNCNX, XY.F2,GRAD1 ) 

XY<NF>«X(NF)-XA 
CALL FUNCTN(NX,XY,F 1 ,GRAOn 
XY<NF)«X(NF) 

GRAD(NF>-(F2-F1)/XA2 . 

2 CONTINUE 
RETURN 
END 

SUBROUT I NE FUNCTL ( NX , X , FSQ » GRAD ) 

I NTEGER EPS2 , EPS3 , EPS3 JB 

REAL*© X , FSQ , GRAD , X Y , FUNCT , DER , X A , REPS , DSQRT 
D I MENS I ON X ( 24 ) , GRAD < 24 ) , X Y ( 24 ) 

COMHON/VARl /EPS2, EPS3, EPS3JB, NFUNCT, NF 

COMMON/ VAR4/XY 

DATA REPS/ Z34 1 0000000000000/ 

XA-l.D -6 

C XA~DSQRT(REPS) 

DO 1 1=1 7 NX 
XY < I) =X ( I ) 

1 CONTINUE 
NF=1 

FSQ=FUNCT(X(NF) ) 

DO 2 NF^l.NX 
H--0.001 
IH =1 

CALL DDCAR ( X ( NF ) . H , I H , FUNCT , DER ) 

GRAD(NF)=DER 

GRAD ( NF ) = < FUNCT< X < NF ) +X A ) -FUNCT < X < NF ) -X A ) 5 / ( X A+X A ) 
XY<NF)=X(NF) 

2 CONTINUE 
RETURN 
END 

*** SUBROUTINES TO EVALUATE THE COEFFICIENTS 
*** X41(I,J),U1(I,J), AND U(I,J) 

SU BROUT I NE F X 4 1 ( X 4 1 , I , U) 

IMPLICIT REAL*8(A-H,0-Z) 

D I MENS I ON C 1 < 1 00 ) 7 C2 < 1 00 ) 7 C3 <100 ) 

CALL FIP(C2, 12, I ) 

CALL FIP<C3,I3,J) 

CALL F'MP Y ( C 1 7 1 1 , C2 7 1 2 , C3 ,13) 

CALL PINT(C2, I2,C1, ID 
C2<1)=0.D0 

CALL PINTCCl, 11,027 12) 

X4i=0.D0 

IFCII.EQ.I) GO TO 2 
DO 1 1=2,11 
X4i=X41+Ci < I ) 

1 CONTINUE 

XX=< 2*1-1 )*(2*J“1 ) 

IF(DABS<X4D .LT. DD-7) X4i=0. D0 
X41=X41*DSQRT(XX) 

2 RETURN 
END 

SUBROUT I NE FULl 1 < U 1 , U , I , J ) 

RE AL*8 U 1 7 U 7 X X 7 DSQRT , DABS , C 1 , C2 , C3 
D I MENS I ON Old 00 ) , C2 < 1 00 ) 7 C3 < 1 00 ) 

CALL FIPPCCl, II, I ) 

CALL FIP(C2, 12, J) 

CALL PMP Y < C3 7 13,01,11, C2 , 1 2 ) 

CALL P I NT < C 1 7 1 1 7 C3 ,13) 

Li 1=0. DO 
U=O.DO 
DO i N=2,I1 
Lli=Ul+Ci <N) 

U=LI+C: 1 < N ) *0 . 75D0** < N- 1 ) 

1 CONTINUE 

XX= < 2*1-1 )*( 2 *j-i ) 

I F ( DABS (U 1 ) . LT . 1 . D-7 ) U 1 =0 . DO 
I F < DABS ( U ) . L.T . 1 . D-7 ) U=0 . DO 
XX=DSQRT(XX) 

U1=U1*XX 

U=L1*XX 

RETURN 

END 

C *** SUBROUTINES FI.FIP ANEi FIPP DEFINING THE SHIFTED 
C *** LEGENDRE POLYNOMIALS AND THEIR FIRST DERIVATIVES 
SUBROUT I NE F I ( COEFF 7 I ) 


640. 

641 . 

642. 

64!i:! • 

644 . 

645. 

646. 

647. 
64©. 

649. 

650. 

651. 

652. 

m: 

655. 

656 . 

657. 
65©. 

659. 

660 . 
661 . 
Cl 6 2 • 

663 . 

664 . 

665 . 

666. 
667 . 

66s . 

669 . 

670. 

671. 

672. 

673. 

674. 

675. 

676. 

677. 
67S . 
679 • 
6S0 . 
6© 1 . 
Ci©2 . 

683. 

68 4 . 

685. 

686. 
687. 

A OO 
OOO • 

689 . 

690 . 
691 . 

692. 

693. 
6v4 . 

695 . 

696 . 

697. 
69S . 

699 . 

700. 

701 . 

702 . 

/ 0.T' . 

704. 

705. 

706. 

707. 
70S. 

709. 

710. 

711. 

712. 

713 . 
Z14. 
/ 15. 

716. 

717. 
7 1 S . 
719. 


REALMS C.0EFF 
DIMENSION C0EFF<S) 


4 


i 

50 


IF( I 

IF(I 

IF(I 

IF<I 

IF(r 

IF(I, 

IF< I 


00 

GO 

GO 

GO 

GO 

GO 

GO 


TO 

TO 

TO 

TO 

TO 

TO 

TO 


1 


EQ. 1 
EQ.2 
EG!. 3) 

EG!. 4) 

EG!. 5) 

EQ.6) 

EQ.7) 

COEFFd )»-l.DO 
C0EFF(2)«56.D0 
C0EFF<3)--756.D0 
C0EFF(4)«4200.D0 

g8ipjliSTiiSa?t,8° 

C0EFF<7) *-12012. DO 
C0EFF(S)a3432.D0 
GO TO 50 
COEFF\' 1 )«1.D0 
CCiEFF<2)«-42.D0 
CCiEFF<3)*420.D0 
C0EFF(4)*“1680.D0 
C0EFF(5)*3150.D0 
COEFF(6)«“2772.DO 
C0EFF(7)*924.D0 
GO TO 50 
C0EFF(1)«-1.D0 
C0EFF<2)*30.D0 
C0EFF<3)*-2i0.D0 
C0EFF<4)»560.D0 
C0EFF<5)*-630.D0 
C0EFF<6)*252.D0 
GO TO 50 
COEFF( 1 )*1.D0 
C0EFF(2 )s-. 20.D0 
C0EFF(3)-90.D0 
C0EFF<4)*-14O.D0 
C0EFF(5)*70.D0 
GO TO 50 
COEFFd )*~1.D0 


OF POOi^ QUAUTV 


COEFFC 


*12. DO 


C0EFF<3)=-30.D0 
CCiEFF(4)*20,D0 
GO TO 50 
C0EFF<l)*l.d0 
C0EFF<2)*-6.D0 
C0EFF(3)*6.D0 
GO TO 50 
CDEFFd)*-l.nO 
C0EFF(2)*2.D0 
GO TO 50 
CCiEFFd )*i.DO 
RETURN 
END 

SLIBRCiUT I NE F I P < COEFF , I FM ) 

REAUfS COEFF » Cl 
D I hlENS I ON COEFF < 1 00 ) , C 1 d 00 ) 

CALL FI (Cl, I) 

CALL PDER ( COEFF, IP, Cl , I ) 

RETURN 

FND 

SUBROUT I NE FI PP ( COEFF , I PP , I ) 

REAL-fcS COEFF, Cl 
n I !'1ENS I ON COEFF d 00 ) , C 1 d 00 ) 

CALL FI (COEFF, I) 

CALL PDER ( Cl , IP, COEFF, I ) 

CALL PDER (COEFF, IFF, Cl , IP) 

RETURN 

END 

C SSP SUBROUTINES PMPY,PDER AivlD PINT 

SUBROUT I NE PHPY ( Z , I D I M Z , X , I D I N X , Y , I D I MY ) 

REAL-^S Z,X,Y 

DIMENSION Zd),Xd),Yd) 

IF(IDIMX#IDIMY) 10, 10,20 
10 IDIMZ-0 
GO 1 0 50 

20 IDIMZ~IDIMX+IDIMY-1 
DO 30 I-1,IDIMZ 
30 Z(I)*O.DO 

DO 40 I-i,IDIMX 



ORIGIIMAI „ 
OF POOR QUAU7Y 


HO 


DO 40 J-‘1,ID1HY 

40 zTk)«X<I)*YUI)+Z(K) 

50 RETURN 
END 

SUBROUTINE PDER< Y; IDIhlY, X , IDIHX) 

REAL4^S Y,X,EXPT 
DIMENSION X(1),Y<1) 

IFUDINX-U 3,3,1 ' I 

1 IDIMY»IDIMX-1 

EXPT«O.DO i 

DO 2 I-l.IDIMY 1 

EXPT-EXPT+l.DO ! 

2 Y( I)«Xn + l )4^EXPT 

GO TO 4 . 

3 IDIMY=1 
Y(1)=0.D0 

4 RETURN 
END 

SUBROUTINE PINT(Y, IDIMY,X, IDIMX) 

REAL4tS Y,X,EXPT 
DIMENSION X(1),Y(1) 

IDIMY=IDIMX-+1 
Y< 1 )»0.D0 
IF(IDIMX) 1,1,2 

1 RETURN 

2 EXPT=1.D0 

DO 3 1-2, IDIMY 
Y( I)=X<I-1)/EXPT 

3 EXPT-EXPT+l.DO 
GO TO 1 

END 

C END OF THE SUBROUTINES NEEDED TO EVALUATE X4ia,J) 

FUNCTION FUNCT(X) 

I MPL I C: I T REAL4fS < A-H , O-Z ) 

INTEGER EPS2,EPS3,EPS3JB 

DIMENSION VE(S) , WE<3> ,THETAE(S) ,FV(S) ,FW(S) ,FTHETA(S) ,FI1 <S) , 
1XY(24) 

Cl I MEI’JSi I UN DELT A ( 3 , tl ) , A ( S ) , B ^ W ) , L» ( •-• ) , D v <:• , b> ) , E ( S , ) , r v fc< , tf , ’c« y , Li ( S' , 'cl , *: 
1 ) , H ( S , S , S ) , X I ( fci , iS ) , X'J C t:i , S ) » Xk ( S', S' , £• ) , a M ( S ) , XN ( s , S ) , 0 ( £;, S ) , P ( S , £J ' 

'S ) , L'S V S , S » 'cl , S ) , U3 ( 8 , S' ) 


78. 


C 

C 

C 


-T \ I' 7 \ 7 1^1 , 7 , I IT \ V V r f '»' • , r-,, , , , — , r > 

3XL4 ( S , t < 7 S', S' ) 7 XM4 ( S' , S' , S ) , XN4 ( S' , s«' ) , l.i4 ( * 8 , si ) , P4 ( S* , S* , S ) , Q*1 ( S' , 8 , S , s' ) , 
4R4 ( S ! 7 '8 7 S ' 7 8 ) , Si^’ ( S ' 7 'ci , S' ) 7 T4- ( S , S ) , LI4 ^ 'd ) 7 V4 ( Si 7 Si , Si 7 Si ) , W4 ^ 'ci , S* , S* ) 7 X 4 1 ( S , 'ci 
COMMON/VARl /EPS2, EPS3, EPS3JB, NFUi'JCT, NF 
COMMON/ VAR4/XY 

C0MM0N/VAR2/X1 7 X2, XX3, X4 , X5, XS 7 X7, X8, X?, XIO, XU , X12, X13, X14, XIS, 
IXIS, X17, XIS, Xl'?, X20, X2J 7 X2“ “ “ “ 



2 i XNci, O'S 7 P3 7 Qc '7 Rc' 7 S'ci, TS', U'3 7 Vsi, WcI, XSI, Vci, Zcl, A 47 s4, L'4, D 47 fc4^ 
3X14, XJ4, Xk'4, XL4, XHiH , XW4 , G4 , P4 , 04, R4 , S4 , T4, 1 14, 04 , U4.. FT I 



XY(NF)==X 
NN=^NFUNCT-:2 
DO 3 1=^1, NN 
VE<I)^'XY<I) 

Ii=NN+I 

WE(I)=XY(I1) 

I 2 — ^^NN+I 
THETAE<I)=XY(I2) 
CONTINUE 
I l=3ifNFUNCT-5 
I2-NFL1NC'T~1 
THETAEv I2)-XY( II ) 
11=11+1 

THETAE ( NFUNCT ) -X Y (1 1 ) 


0 tiui> 7i«r 


% £-<v CJ 


ORIGIWftt. f! 

OF POOR QijAUTV 


c 

c 

c 

c 


c; 
c 
c 
c 
c 

CC-J^ 

c 

c 


CALCULATION OF VE < NFUNCT-1 ) , VE ( NFUNCT ) , WE < NFUWCT-l ) AND WE < NFUNCT) 
ACCORDING TO THE EQUATIONS. ON PAGE 39 OF THE NOTES.. 

AUX1-VE( 1 ) 

Ni«l • 

AUX2--0 

AUX3=WE(1) 

AUX4==0 
N2=NFUNCT-2 
IF(N2.EQ.l) GO TO 05 
DO 5 I~2,N2 
SS«DSQRT ( 2 . D0"<? I- 1 . DO ) 

gtliiis§aSi;KlS!1tV?iUss*vEa> 

AUX3=AUX3~N1*SS^WE( I ) 

AUX4-ALIX4+NH^HH I~1 )4fSS#WE( I ) 

N1«-N1 
5 CONTINUE 
55 Ni ^•NFUNCT-1 

VE < N 1 ) ^ A 1 1 ALIX 1 + A 1 2« AU X 2 
VE ( NFUNCT ) ^ A2;t AUX i +A22^t AUX2 
WE(N1)=A1 i<rAUX3+A12^^AUX4 
WE ( NFUNCT > «A21#AUX3+A22itAUX4 
VEN1=VE<N1 ) 

VEN=VEv’ NFUNCT) 

WEN1-WE<N1) 

WEN~WE< NFUNCT) 

•it ^ c ■)!’ ■}(' ■k' 4r •{? -jf -Jr -^r -if S f 'fc -k -Jf -Jr ■Si’ w 'W •?«■ ■}< ■W 4r ■}f -if •}<■ 4r Hr ^ 

S# CALCULATION OF THE INFLOW RATIO LAMBDA * 

* (XLMBDA IN THE PROGRAM) 

•Vr 


CALL XLBDA( XLMBDA) 

XLMBDA-0 . 03927D0-s^ < DSQRT ( 1 „ DO+38 . i 972D0^rTHETAC ) • 


■Jr 

1 . DO ) 

■Si' 

■Jr -S -Sr •)? -Sr -Ji ■Jr -Sr -Si ■Jr -Jr ■Jr ^ ■Jr -Si -Jf -Jr "Jr ■ir -Sr -Sr -Sr ■}r -Jr •{ r -Sr -Jr -Si ■iH.i’ -Sr -Sf •ir Jr -Sr -Si ■Jr ■Jr ■Jr -Sr -Sr ■Jr -ir -Sr -JHi 

X2=XLMBDA-K- < EPS2JrXLMBDAJ^C:0SBJii::0SPC.-EPS.3-fri::H0RD-SrSI|'iB/2 ) ■ 

X X3=:XLMBDA*C2B'Ji-SINPC'J^ < 1 +EPS3’»CD00PI ■Jh::2C ) 

X8^EPS:3-J^X 1-J^XLMBDA 
X6=X.Sl-*C2B0EAJiC0SBJiSINPC/2 
X 1 3- 1 +2-Ji XS’JrS: I I'JB-SCOSPC 
X 1 7~EPS3-JiXLMBDA*S2C’J^C0S;PC 

X I S~EPS3*XLMBDAJ^SI NPC 
X 1 9~-EPS2trXLMBDA-JfC0SB 
X29-EPS3^.^XLMBDA*C0SPC 
X30=X29»( 1+320 
X32=^EPS3 j^XLMBDA/ 2 
X34 ~EPS3-Jr XLMBDA ( C2C“3«02C ) 

X 35=EPS3* X 3 1 Jf X LM BD A /2 

Y2--^SBCB+X37*XLMBDA+X iJfCDOOPI JrX30-:iC03B-X 1 o-JiCHORD/2 
Y4-C2BCiEA-J^ ( SBCB+X37-JiXLMBDA ) /2 
YSI=X29J^SINB 

Y9~EPS2 X9+X 29-JrS I NB*C2C 
Y i 2~EPS3-«-XLI'lBDA-Ji-SCi::C 

Y 1 4=3 1 NPC-Jf ( X 1 9-EPS3-JiCH0RD*S I NB Ji-COSPC / 2 ) 

Y20=X29'J^C2C 

Y2 i =EPS3'Sr'XLMBDA‘JrX3 1 ■Jr3CCC/2 
II = J. 

DO 6 r-=;l, NFUNCT 
FI10=a-II)«FU(I) 

FV ( I ) =~X 1 # ( X2*A < I ) -XX3irB < I ) -X4^rC (I ) ) +X5JiFI ;lO+Xo-ifH4 ( I ) 

FW ( I ) =-X 3 1 JrC (I ) +Y2JiB ( I ) +YY3’i^F 1 1 0+Y4■^^ H4 ■: I ) - Y5-frLI4 ( I / 

FTHETA ( I ) =Z 1 -i^Q ( I ) +Z2J^S ( I ) 

Z 3 A= ( 1 -2* I ) / SQRT2 
I.J=i 

DO 7 .J=i, NFUNCT 
Z6B=.JJr( J-l)JrFIl{.J) 

FV ( I ) =FV ( I ) + ( X7-Jr ( DELTA (I , J ) +C2B0EA-JiD3 H , J ) ) +XSi-;r < X9-.rW5 < I , .J ) -X lOJrDEi 
1 F ( I . .J ) +X 1 1-»0 ( I , J ) ) ) JiWE < J ) + ( X 1 2 Jf DELTA C I , .J ) -X i 3*DELF C I , .J ) +C2B-»D ( I , J ! 
2 ) +X 1 4-JiD3 ( I , J ) +X 1 5-Jr ( X.J3 ( I , J ) -G3 <!,._!) /3 ) +X 1 < E (I , .J ) -X 17-irO <1 , .J ) ) ) JiVi 

3(J)+X1*< CCOSPCJrXI (I,.J)+XiSHr04(I, J) )-;rX19-X20-JrX.-l( I, J)-X2lJrXl (I,.J) ! 

4^V 7’7JJ.Yk'4 ^ T , . T; i ■JtTHFTAF ( . H 

FwTi ) =FW V I ) + ( Ye.^ C DELTA ( I , J) +C2B0EAJiD3 M , .J ) ) +i::2BJiD ( I , .J ) +X 1 5* ( X.J3 ( I 
i -J ) -G3 < I , .J ) /6 ) +Y7JiXK3 (I , .J ) ~EPS3-;r32&-!iDELF < I , .J ) -X 1 <r ( YSiJrDELF < I , -J ) +Y9** 
2(1, .J ) - Y i OJrE ( I , J ) ) ) *WE ( J ) - ( X7^r < DELTA ( I ■, -J ) +C2E0EA-;^D3 (I , J ) ) -Y i 1 rr ( Y 1 2. 
30 ( I , .J ) •+£ ( I , .J ) ) ) Ji-VE ( .J ) -X 1 -Jr ( Y 1 3-Jr X.J n , J ) +Y 1 4^X I ( I , J ) +Y 1 5*XK4 ( I , .J ) ) Jr 
4THETAE(J) 

FTHETA ( I ) -FTHETA ( I) + ( Z Z3->rDEL ( I , .J ) -DCS I Jr ( P ( I , J ) +2 wC:2B0EA-:jX N ( I ■» .J ) ) -i- 




©so. 

C ‘0 i 
CiO i ■ 

c>irt 4 « « 

oO«J • 

s;:l 4 . 

S '©5 II 
OO/i 

OCfu» m 

'dS/ 4 
!-• *— • 
OuCi • 

SS9. 

890. 

89 1 . 

892. 

893. 

894 . 

c> /«•> . 

898. 
fc*V7 . 

895. 

899. 

900 . 

901. 

902. 

903. 

904. 

905. 

908. 
907. 
90S. 

909. 

910. 

911. 

912. 

913. 

914. 

915. 
918. 

917. 

918. 
9 1 9 - 

920 . 

921 . 

922. 

923 . 

924. 

925. 
928 . 
927 . 

Cj * >< C* 

97 l 9 m 

930 . 

931 . 

CrZf^ 

/ m 

C/O’ 1 ' 

)►' « 

934 . 

935. 

9 3 Cl . 
Vcl7 . 
93w . 

939 . 

940. 

941. 

942. 

'.'.'’43 a 

944. 

945. 
948. 

947. 

948 . 

949 . 

950 . 

951 . 

■-.iS"' 

y \J‘jU m 

953 . 

954. 
■955. 

958. 
957. 
95£! . 

959. 


u 

C 

C 




1 Z4#XN (I » J ) ) 4^THETAE ( J ) (I , J ) *WE ( J ) OF 

IF^EPS2.EQ.O) GO TO 77 

D0~S K-1>NFUNCT 
Z8C.«K-tKK-l )^fFIKK) 

Z8A=^Z8B4^Z8C 
Z8~IuHMK*Z8A^^ZSA 
ZS«HvlAI*ZSA#( J-2)'»<wl'*'l ) /SQRT2 
Z 8 A»NA I #Z8A-4 ( K-2 ) ■» ( K+ 1) ‘ 

FV ( I ) «FV ( I) + ( X23w^G (I , K , J > -2^^X7*XK ( J . K , I) ) ^rTHETAE < J ) ^VE ) + 

1 < DCSI-JcAS < I , J, K ) +X24#XK ( J, K, I ) ~X25^c < X28 <h3 { I , K» J ) X27^Y3 ( I > K> J ) 

2 ) ) #THET AE < J ) #WE (K) - < EPScWSBCB^ ( F < I , J , K ) + X 4 1< I , J ) KvF 1 1 < lO > - X 28^^ 

3 ( C2C->^ ( X29-)^P3 ( I , J , K ) -8 IWPCvSS ( I , J , K ) ) +T3 (I , J , K ) -830^03 H , J , K ) +X30* 

Fv ( I ) sFV < I ) - Xsl-J^ ( xSrl'-H- < X33-J^P3 ( I . J ■. K) +b2L.wX W3 ( I , J » K ) 

1 +F < J , K 7 I) -24^ Z3 < I , J , K ) ) -SCCG* ( 03 ( I . J , K ) -03 ( I , J , K ) / 2 ) ) VE ( J ) VE ( K ) 
2-X3l4f < SCCC*U3 { I , J, K ) -X34'i<X3 ( I , J, K ) ) #THETAE ( J ) -s^THETAE < K ) /2 
3+X35^^ < C2C^f XN3 < I , J , K ) -F < J , K , I ) ) •?^WE ( J ) --<WE < K ) 

FW C n «FW <!)•<•( X24^f XK ( J , K , I ) -DCS I P4 < I . J » K ) -Y i 8 vG ( I , K , J ) ) -Jr tHETA 
1 E ( J) -ff VE < K ) - X37* ( S I WPC^ ( X29'» P3 ( I , K . J ) -S I NPCwQS ( I , K' , J ) ) -TS ( I , J , k' ) + 
203 n , J 1 K ) ) ^^VE < J ) 4^NE ( K ) + ( 2^^ X7^XK < K , 1 ) +Y 1 7^r < Y 1 S^G U i J . K ) +X27«Y3 v I 
3 . J , K ) ) ) ^WE < J ) ^cTHETAE UO - < EPS3-;rSBCBi< < F ( I , J , K ) +F < J , k , I) /2+X 4 i < I , J ) * 

■.( I » J 7 k)’ 


I'’*'* 

I 



// 

7 

6 


10 


1 2-»T3 ( I , J 7 K ) l+X29-ffr < Z3 (1 7 J 7 k ) -X1^13 < 1 7 J , K ) /2-F ( 'J . k 7 I) /2 ) ) +8 1 NPC^r.S4 <1 , • 

2 J 7k)) VE ( J ) -fr VE ( k ) + Y2 1 •«• X 3 < 1 7 J 7 k ) -^THET AE ( J ) i^THETAE ( k ) 

FTHETA ( I ) =FTHETA ( I ) +D€SUi< A3 ( J, I , k ) +Z8 ) ttVE ( J ) -f^WE ( k ) f Z7* < Xk < I 
1 7 J 7 k ) -t-ZS ) * ( < VE < J ) s^VE ( k ) -WE ( J ) ^^WE < k ) ) ■'i^SCGC-VE ( J ) ^fWE < k ) ■}fCOS2G ) 
IF(EPS3.EQ.O) GO TO 88 
DO 9 L-I 7 NFUNGT 
1\IAL=1 

IF(L.EQ.3.0R.L.EQ.5.0R.L.EQ.7) NAL=^-1 
Z9-NAL^rZSA 

FV ( n =F V < I ) -f Z74^ < THETAE ( J ) *THETAE ( k ) < WE < L) -^S I W2G-f- VE \ L ) *G0S2G ) ^.83 ( I 
1 7 J 7 k 7 L ) -SGGC-ifWE < J ) * < VE { k ) ff VE < L) WE < k ) irWE ( L) ) G3 <1 , J , k , U ) + ( X i 2 -it 
2E3 < 1 7 J, k 7 L) -C2B-;^ ( H3 (1 7 J, K» L > -t-X 13 (I , J, k% L ) /2 ) ) ^YE ( j ) -J^VE < K ) ^cYE ( L ) /2+' 

3 < X 1 24^E3 ( 1 7 J 7 k 7 L) /2-fDGS I i^F3 (1 7 J , K » L) -G2Bw ( H3 (.1 7 J 7 k , L ) -f X .1 3 ( I , J , K 7 L) / 
42 ) /2 ) « VE ( J ) -ttWE ( k ) ^<WE ( L) +X3 1 ■Jc ( G2C-}rR3 < I , J 7 k 7 L ) 'rC0S2GwA4 (1 7 J 7 k 7 L ) - 

5 X 38-JK;4 n 7 j 7 k 7 L) -G0S2G-» X 1 4 (,T 7 J 7 k » L) /2 ) YE ( J ) * YE ( k ) *THETAE < L ) 

F Y ( I ) ~FY < I ) -X37^ < C2C#R3 ( 1 7 J 7 k 7 L. ) -X3S*A4 ( I , J 7 K 7 L ) +3vS2G*C4 ( I , J , K 7 L ^ 
1 ) #YE < J HtWE ( K ) #THETAE < L ) -X39^JB4 (1 7 J 7 k rL) -wTHETAE < J ) -JrTHETAE < l< ) 

2THETAE ( L ) -X40*WE ( J ) *WE < K ) -^THETAE •: L) X 1 4 ( I , J , k , L) 

FW (I ) =FW ( I ) -f Z7*THETAE ( J ) -t^THETAE ( k ) YE C L) -:rS I W2C-WE ( L ) '<rGOS2C ) *B3 ( I 
1 J 7 K 7 L) -2^X7-tf ( C3 (1 7 J 7 k 7 L) +F3 (I , k , J , L) /4+F3 U , J , k 7 L) /2 ) ■JrWE < J ) ■kWE ( k > iv 
2WE ( L ) -X7^?F3 < I , J , k » L ) ^^YE ( J ) >:YE < K ) ^^YE < L ) /2+ ( X 1 2-;cQ4 (I , J 7 K 7 L ) -DGSP.^ ‘ 
3R4 ( 1 7 J 7 K 7 L) -C2B-if ( H3 < I , ^1 , k 7 L) -fX 1 3 ( I , J 7 k > L ) /2 ) /2 ) -f^WE ( J ) ^^YE < K ) YE < L) + 

4 < Y8^H7|4 ( 1 7 J 7 k 7 L) -028^^ <H3 < I , J , K » L) -i-X 1 3 (I , J , k , L) /2 ) /2 ) •JfWE ( J ) *WE { k > 
5WE(L) 

FW ( I ) -FW < I ) -<-X37-5^ ( SGCC-Ji < R3 ( I , J 7 k 7 L) +2^^ < C4 ( I •» J 1 k 7 L ) -A4 (I , k , J , L) ) ) -){• ■ 
1 WE ( J ) YE < k ) -^THETAE ( L ) -C2G* ( R3 ( I , J , k ‘7 L ) -C4 ( 1 7 ..I 7 k . L) /2 ) ^-<WE ( J ) ^\AE < K ) 

2- 5^THETAE { L ) -Y22irB4 < I , J 7 k 7 L) THET AE < J ) *THET AE < k ) •s^THETAE ( L) ) 

3- Y23^^ \ 2-^^A4 ( 1 7 J , K 7 L) -G4 <1 7 J , K 7 L) ) i^YE ( J ) YE ( k ) -s^THETAE CL) 

4+Y244cX 1 4 V 1 7 J, !<7 L ) -JK YE ( J ) #YE < k ) +WE ( J ) -;^WE ( k ) ) -^THETAE C L ) 

FTHETA ( I ) ==FTHETA C I ) -f Z74^ C B3 ( J 7 I , L 7 k ) + Z9 ) C ( YE < J ) ^iK>E C k ) -WE C J ) ^^WE ( k ) ) 
1 ^rC0S2C'f 2# YE ( J ) * WE < k ) ^^'3 1 W2C ) THETAE CL) ’ . 

GOWTIWUE 
IK=-IK 
COlvITINUE 
I.J‘=-IJ 
CONTINUE 

CONTINUE 

FUNCT-O 

DO 10 I-i,NFUNCT 

FLiNCT-FUNCT-fFY C I ) ^r<i-2-i-FW C I ) *^^2+FTHETA C I ) 

FIJNCT^FLINCT-i-DABS < FY ( I ) ) +DABS ( FW C I ) ) +DABS ( FTHETA C I ) ) 
FIJNCT^FLiWCT+DEXP ( FY C I) ) +DEXP ( FW ( I ) ) +DEXP ( FTHETA C I ) ) -3 . DO 
FUNCT-FUNCT-f DSQRT C FY ( I ) -^^2 ) -<-DSQRT < FW C I ) ) +DSQRT C FTHETA C I ) ^<'2 ) ’ 

CONTINUE 
RETURN . 

END 

SUBROUTINE FUi'lCTi4 C NX 7 X 7 FSQ 7 GRAD ) 

IMPLICIT REALMS CA-H, 0-Z ) 

INTEGER EPS2, EPS3, EPS3JB 

D I MENS I Oi4 YE C 8 ) , WE ( 8 ) 7 THETAE ( 8 ) 7 FY C 8 ) , FW C 8 ) , FTHETA C 8 ) 7 F II C S ) 
i 7 X C .i'4 / 7 aO V W ) 7 U C 'c< 73)7 oRAU V .k‘!4 ) 7 •.■'Y C 8 7 34 ) 7 OW v 3 ■> 34 ) ^ 3 T C 13 ^ 34 i 
Eli MENti I uN Eic.LT A ^ fei 7 3 ) 7 h ( 3 ) 7 B C 3 j 7 C v tU 7 Ei ( t > 7 te; ) 7 E C 3« 7 3 ) 7 F ( 3 7 3 7 fci ) 7 3 3 7 '3 7 >t 
1 ) 7 H V tl 7 3 7 3 ) 7 A I C 3 7 i-i ^ 7 A '3 7 £i ) 7 X k C '3 7 3 7 ti .1 7 X 1^'1 V 3 3 1 7 A i'l 1 3 78 ^ 7 U I 3 7 fci J 7 P V ci 7 3 1 
3 7 Gl C 3 ) 7 R C 3‘ 7 3* ) 7 3i ( 31 <1 7 Ao'i C 3 , 1 7 3! 78*7 313 C 13 7 31 7 31 7 3i ^ 7 L.;l \ 3 7 C* 787 3* J v U'.-* C 3i 7 3l ) 7 





• * np • ■ 




SIN2C, VENl , VEN. WENl , WEN.'THETAC I 
EL,DELF,DELTA» A,B,i:.,EuEiF,G,H, Xi 


/i' > XNy » 03 1 F*3 » WS* » R3 » S3 » T3» U3j Vy> X^i? Y3» Z*3» A4 t B4i U4- j 

3X 1 4 , X J4 » XK4 , XL4 , XH4 , XlvJ4 > 04 , P4 , 04 , R4 , S4 , T4 , U4 , V4 , W4 
COMMON/ VAR5/S I GMA. XG, LI 

W 1 1— 4 It. ».«*. 


, F3-. G3, H3, X 13, X J3, XK3, XL3, mt 
, Z3 , A4, B4 , 04 , D4 , E4 , F4 , 04 , H4 , 
4,T4,IJ4, V4, W4,FI1 


N2-2-irNFUNCT 

no 3 I=1,NFUNCT , „ « 

J1=^NFUNCT+I OR^Gtr^AL PASlI 

viTlti X ( I ) OF POOR QUALITY, 

WE(I)-X(J1) ■ 

THETAE<I)-X<J2) 

3 CONTINUE 

-}f •Jf -if ■W' ■W ■}f -Jr w 4f iHHr if ■it ■! r •;? w ■S’ it Hi' 4^ 

■}H,f CALCULATION OF THE INFLOW RATIO LAMBDA ^ 

Hr (XLMBDA IN THE PROGRAM) 

•«• i>r 

PHIE-0.no 
no i I-i,NFUNCT 
PH I t=^-PH I E+XG ( I ) *THETAE v I ) 

ALIX^^O. DO 
no 2 J-1,NFUNCT 
AUX*---AUX+U < I , J ) h^WE < J ) 

2 CONTINUE 

PHIE^PHIE+AUXH^OEn ) 

1 CONTINUE 

PHIE-PHIE+THETAC 
IF(PHIE.NE.O.DO) GO TO iOO 
XLMBDA-O.DO 
GO TO iO;l 

)0 AU X'-S I GM A-fK'i . 3‘?'27D0 
ABSPHI-=nABS(PHIE) 

11 = 1 

IF<PHIE.LT.O.nO) II=-:l 

XLMBDA^AUXHfl I Hr ( DSQRT ( 1 . E<0+3 . 31 972DEHi'A3SPHI /SIGMA ) *“1 . 

1-1. DO) 


• 1 . no ) 


J. 01 X2=XLl'1BEiAHi' ( EPS‘2'JcXLMBDA'<fC0SBH<'C0'SF'C— EPSS'^fCHORni'wSI NB/2 ) 

XX3=XLMBnAH^C2BHfSINPCHr ( l+EPS3HfCD00PI-irC2C ) 
XS^EPSS-J^Xl-^XLMBDA 

X &<— X SHf C2B0E AHfCOSBHfS I i'-iPC / 2 
X 1 3 = 1 + 2 Hr X 3 * S I N B •{(• C 0 S p C 

X 1 7=EPS3-!f XLI'1BDA''JfS2C'rf’C0SPC 

X I S^EPSS-JfXLMBnA-JfSI NPC 
X 1 ’•r''=EF'S2''/i'XLMBDAHfC0SB 
X 2 9 = E P S ci X L H B El A C 0 ’3 /•' C 
X30=X29*C i'i-S2C) 

X32=EPS3'}^ XLl'iBElA /2 
X34=EF'S3HfXLi’1BEiA'« C C2C— 3-^320 ) 

X35-=EPS3-:cX3 1 HfXLMBnA/2 

Y 2 = S B C B ■+ X 3! 7 Hr X L N B Ef A •+• X 1 C El 0 0 F' I w X 'S 0 C 0 3 B * " X 1 o C H 0 R D / 2 
Y4=C2B0EA'» ( SBCB+X37if XLMBDA ) /2 

Y?!-=;X29*SINB 

Y9=EPS2h^ X9+ X29* 3 1 NBHfC2C 

Y ,L 2 = E P 3 3 -if X L M B D A -Hr 3 C C C 

Y 1 4=3 1 NPCif < X 1 9~EPS3i-ri::H0RDHrS I WBwCOSPC/2 ) 

Y 2 0 = X 2 9 -ir C 2 C 

Y2 1 =EPS3H^ X LMBD A* X 3 1 -.tSCCC/ 2 
;; DO 33 I = 1,NF1JNCT 

EiO 37 >J=l,i‘\iX 
: GV(I,J)=0.D0 

GW ( 1 7 J)==0, DO 
GT (1 7 U ) =(’>. DO 
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{ 81 ; 
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1066. 
1067. 
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1069. 

1070. 

1071. 
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1073. 

1074. 

1075. 

1076. 

1077. 

1078. 

1079. 

1080. 
1031. 

1 0W2 a 

1 U 83 • 

1084. 

1085. 

1086. 
1 0y7 a 
1088. 

1089. 

1090. 

1091. 

1092. 

1093. 

1094. 
1 095 • 

1096. 

1097. 

1098. 

1099. 

1 1 00 . 
1101. 
1102. 

1 103. 

1 1 04 . 

1105. 

1106. 
1 1 07 . 
1,108. 

1 109. 

1110 . 
1111. 
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c 
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CONTINUE POOR OUALITY 

CONTINUE 

IIwl 

DO 6 IkI.NFUNCT 
FI 10~2’''fl I 

FV < I > «-X { X24^A ( I ) -aX 3*B ( I ) -X4-ffC( I ) ) +X5*FI 1 0+X6#K4 { I ) 

(I ) «-X3 1 *C ( I +Y2#B ( I ) +YY3<^F 1 1 0+Y4 ^^H4 < I ) -Y5^rU4 <I > 

FTHETA < I ) 1 ) +Z 2 *£ < I) 

no 7 jki.nfunct 

J1«NFUNCT+J 

J2«N2+J 

^ GV I J«X 1 2^rDELTA < I , J ) -X 1 3^^DELF \ I » J ) +C2B•^^^l a , J ) +X 1 4^^D3 (I v J ) 

1 +X 1 5# < X J3 < I . U yr 03 ( I , J ) / 6 ) +X 1 6-Jf ( E ( I , J ) -X 1 7-;^0 C I , J )) 

1 +X 1 lio ( I* ^ a , J ) ) +X©-^ C X9wW3 ( I , J ) -X ,t O^DELF ( I , J ) : 

^ oy IU 2 «X 1 M ( C'OSPC^^X I < I , J ) +x 1S<^04 ( I , U ) ) X 1 9~X20#X J< I , J ) ' 

1- X21#XKI, J)+X22-;^XK4(I, J) ) 

GW I JaY 1 1 * < Y 1 2^f 0 a , J ) +E ( I , J ) ) -*X7->^ < DELTA ( I » J ) +C2B0EA^D3 < 1 1 J ) ) : 

GW I J 1 aY64fr < DELTA (I . J ) +C2B0EA*D3 ( I , J ) ) +C2B«D < I , J ) +X 1 5^ { X J3 ( I , ^ ) 

1 ~G3 < I , J ) / 6 ) +Y7l^XK3 < 1 1 J ) ~EPS3WS2B*DELF ( 1 , J ) -X I C YSt^DELF ( I , U 5 
2+Y9^^0 < I , J ) -Y1 O^rE ( I , J ) ) 

GWI J2a-X 1 * ( Y1 3*X J < I , J ) +Y1 4-(^X I < I . J ) +V J 5-^XK4 C I , J ) ) 

GT (I , J ) = 0 . no 

GTIJ1=Z5*R<I, J) 

GTI J2aZZ3-(^DEL ( I r J ) -DCSIff ( P ( I , J ) +2*C2B0EA-^XN ( I , J ) ) +Z4«XN< I , J ) 

F V ( I) aF Y ( I ) +GY I JfrVE ( J ) +GV I J 1 ^^WE < J ) +GV I J2itTHET AE ( J ) • 

FW ( I) aFW ( I ) +GW I cUtVE < J ) +GW I J 1 -i^WE ( J ) + 6 W I J2^tTHET AE < J ) 

FTHETA ( I ) a-FTHETA ( I ) +GT I J i <cWE ( J ) +GTI J2-^THETAE < J ) 

GVn, J)aGVn, J)+GVIJ 
GVn, Ji )aGV(I, J1)+GVIJ1 
GV n , J2 ) aG V ( I , J2 ) +GV I J2 
GWn, J)a-GW{I, J)+GWIJ 
G W ( r , J 1 ) aGW ( I , J 1 ) +GW I J 1 
GW (I , J2 ) aGW ( I , J2 ) +GW I J2 
GT ( I , J 1 ) wGT < I , J 1 ) "HGT I J 1 

GT ( I , J2 > =GT ( I , J2 ) -fGT I J2 ■ 

IF<EPS2.eQ.O) GO TO 7 
no S Kal.NFUNCT 
KlaNFLINCT+K 
K 2 a|\| 2 +K 

V VFVaXS 1 ( SCCC-Jf ( Q 3 (I , J , K ) ~03 ( I , J , K ) /2 ) -X32w { X33*F3 < I , J , K ) +82C-i^ XN3 ( 
1 1, J,K)+F( J,KrI )-2scZ3a, J,K) ) ) 

VWFVa-EPS3-J^SBCB^F ( I , J, K ) +X28-«- ( C2C-if < X29ffF3 ( I ■» J, K’ ) ~SINPCn-Q3 ( I , J , K > • 

1 ) +T3 ( I , J , K ) “S3C-fr03 ( I , J , K ) +X30-!rXN3 < I . J , K ) +2^X29wZ3 ( I v J, K ) ) 
VTFVaX23*G < I , J , K ) -2^X7-)t XK ( l< , J . I ) 

WWFVaXSS* ( C2C-M-XN3 (I , J, K ) -F ( J> K, I) ) 

WTFVaDCSI-J^A3<I,K, J)+X24*XK(K, J, I ) ~a 25* C X26wG < I , J, K ) +X27^^Y3 C I , J> K) ) 

TTFV=X3 1 * ( X34^^X3 ( I , J , K ) -SCCC*U3 ( I , J , K ))/2 

VVFW=X28^^ < 8 1 NPC->^ < 03 < I , J , K ) -2i^T3 (I , J , K ) ) + X29-Jr { Z 3 (I , J , K ) 

1 “XNy ( I » J 7 K ) /2-F < J 7 K f I )'/2 ) +S I WPCifS'4 v 1 7 J 7 K ) ) -EPSS'M-SBC.B'SfF < J 7 K’ 7 I ; /2 
^ yWFWaX37* ( T3 ( 1 7 J 7 K ) -03 ( I , J , K ) -8 1 WPC« ( X29^P3 C I , fC , J ) -S I NF CwQS ( 1 7 K 7 J ) 

VTFWaX24^f XK < K 7 J 7 I ) -DCSI P4 \ 1 7 K 7 J ) -Y 1 6-icG ( I ,* J 7 K ) 

WWFWaX284r ( C2C* < X29^<P3 < 1 7 J , K ) -8 1 islPC:^<03 ( I , J , K ) ) +Y 1 9 -;hj3 ( I , J , K ) - 
1Y20^^XN3( I 7 J,K)+SINFi:w84( I, J,K)-X29'-cF(J,K, I )/2) 

2- EPS3-»SBCB^ < F < 1 7 J, K ) +F ( J 7 K, I ) /2 ) 

WTF Wa2«X7^XK ( J , K , I) +Y 1 ( Y 1 8^^ G < I , J 7 K ) •+ X 27* Y3 H , J , K ) ) 

TTFWaY21*X3(I, J,K) 

VVFTaZ7*XK< I 7 .-UK) 

VWFTaDCS I * A3 < ,.U I , K ) -V VFT*C0S2C 

VVFT=-VVFT* 8 CCC 

WWFTa-VVFT 

AUX 1 aVVFV*VE ( K ) -rVWFV*WE ( K ) -t-VTFV^^THETAE ( K ) 

AUX2=WWFV*WE ( K ) +WTFV■^fTHETAE ( K ) 

ALlX3aTTFV*THETAE ( K ) 

FV (I ) a-FV < I ) +VE ( J ) *ALIX 1 +WE ( J ) *AUX2+THETAE < .J ) *hUX 3 
GV(l7 J)aGV< I, J)+ALIX1 
GV ( 1 7 K ) aGV ( 1 7 K ) +VVFV*VE ( J ) 

GV (1 7 J 1 ) aGV ( 1 7 J 1 ) + ALIX2 

GV ( 1 7 K 1 ) aGV ( 1 7 K 1) +VWFV* VE ( .J ) +WWF V*WE < J ) 

GV ( 1 7 J2 ) aGV ( 1 7 J2 ) +AUX3 

GV (1 7 K2 ) aGV ( I , K2 ) +VTFV*VE ( J) + WTFV*WE < ,J) h-TTFV^THETAE ( J ) 

AUX 1 = V VFW* VE ( K ) +VWFW*WE ( K ) +VTFW*THETAE \ K ) 

AUX2aWWFW*WE ( K ) +WTFW*THETAE ( K ) 

ALIX3aTTFW*THETAE v K ) 

FW ( I ) aFW ( I ) +VE ( -J ) * AUX 1 +WE ( J ) *AUX2+THETAE < J ) *!-iUX3 
GW ( 1 7 J ) aGW ( 1 7 J ) +AUX 1 
GW < 1 7 K ) aGW n 7 K ) +VVF W*VE v .J ) 

G W ( 1 7 .J 1 ) a-GW a 7 .J 1) + ALl X2 

GW ( 1 7 K1 ) aGW V 1 7 Ki ) +VWt“ W*VE ( J ) +WWFW‘^rWE (, U ) 
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1123. 
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1 127 » 
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1129. 
H30. 

1131. 

1132. 
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1176. 

1177. 
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GW < I , J2 ) «GW (I , J2 ) +AUX3 

GW ( I , K2 ) ==GW ( I , K2 > +VTFW#VE ( J ) +WTFW^WE < J ) +TTFW^fTHETAE < J ) 

AUX 1 =« VVFT#VE < K ) +VWFT^rWE ( K ) 

AUX2«WWFT^cWE(K) 

GT(I,wl)-GT<I»J)+AUXl 
GT ( I , K ) -GT (I , K ) + WFT'^VE ( J ) 

GT (I , J1 ) «GT < I , J n AUX2 

GT < I , K1 ) «GT ( I , K1 > +VWFT’.rVE ( J ) +WWFT-»WE i J ) 

FTHETA ( I ) -FTHETA ( I ) +VE < J ) ^^AUX 1 +WE < J ) if AUX2 
IF<EPS3.E0.O) GO TO S 
DO 9 Lssl,NFUNCT 
L1=WFUWCT+L 
L2«I42+L 

VWFV= < X i2-»E3 n t J, K, L)-*C2B<f < H3 (I , J, K, L ) +X 13 ( I , .Ji kS L > /2) ) 72 
WWFV«~Z74fSCUC-ifC.3( Lik,J) . , ^ ......... 

VVTFV« X3 1 ^ ( C2Cif R3 ( I . J , K , L) +C0S2C# ( A4 < I > wl , K , L) -X 1 4 < I , J , K , U 72 ) 
i“X36ifC4(I, J>K,L) ) 

VWWFV«VWFV4DCSI^fF3 ( I , J,K, L) . 

VWTFV-X37'» ( X3S# A4 < I , J, K , L > -C2G^^R3 < 1 1 J » K i L) “3ifS2CifG4 ( I , J , k, L ) ) 
VTTFV*^Z7ifC:0S2C-ifB5 < I , L , K , J ) 

WW WF V«- Z 7*8CCC^f 03 ( I , J , K , L ) 

WWTFV=^-X40-tf X 1 4 a , J , K , L) 

WTTFV‘=Z7ifSIN2CifB3( I , L, K, J) 

TTTFV~“X39if B4 < I , J , K , U 
VV0FW«-X7ifF3 (I . J, K, L ) 72 

WWFW«X 1 24f04 (I , L , K , J ) “DCS IifR4 (I , L , K , J ) “C2Bir ( H3 < I , L , k. J ) 

J+XI3(I,L,K% J)72)72 • . _ • ..... 

VVTFW-Y23# ( C4 ( I , J , K, L) A4 (I , J , K. L ) ) +Y24if X 1 4 < I , J , K , L) , 

VWTFW=X37^fSCi:.C^ (R3 ( I . K, L)-2icA4< I , J, K, L) +2ifC4 < I > k, J, U ) 
VTTFW^WTTFV 

WWWFW~Y6ifQ4 < I , J , K , L) -G2Bif ( H3 (I , J , k , L) + X 1 3 ( I . J » , L; 72 ) 72 
1“2-»X7<^<C3(I, J,k,L)+F3(I,k, J,L)/4+F3a, J,k,L)72) .... 

WWTFW=X57-tfC:2C-»f ( 04 < I , J, k, L) 72-R3 ( I , ^1 , k, U ) +Y24irX 1 4 C I » J , k , L) 
WTTFW=-VTTFV 

TTTFW--=“X374fY22-!fB4 < I , J , K% L) 

AUX 1 “ ZTlfBS ( j 7 i 7 1_7 fs ) 

WTFT--AUX 1 -if CDS2C: 

WWTFT--VVTFT 
VWTFT-2ifSIN2i::# AUX 1 
ALIX==THETAE ( K ) #THETAE ( L ) 

AUX 4=VWFV-5f VE ( L ) + WWFVifWE ( L ) +VVTFVifTHETAE ( L ) 

AUX5«UWWFVifWE ( L ) +VWTFV^fTHETAE < L ) 

AUX6=WWWFV-kWE ( L ) +WWTFVlfTHE7AE < L ) 

AUX 1 ~AUX4ifVE ( K ) +AUX5irWE ( k ) +VTTFV*AUX 
ALIX2=s AUX6*WE ( K ) +WTTFV-ifALIX 
ALlX3=TTTFVifAUX 
6V( I, J)-GV(I, J)+AUXi 
GV ( i 7 k 5 ^G V <I 7 K ) + AUX 4if VE { J ) 

GO ( 1 7 L) =GV ( 1 7 L ) +VWFV-s‘YE ( J ) ifVE ( k ) 

GO ( 1 7 J n =GV ( 1 7 J 1 ) +AUX2 

GV < 1 7 k U '-=G V ( 1 7 K 1 ) + AlJXSif VE < J ) + AUX6*WE C J ) 

GV < 1 7 L 1 ) =GV ( 1 7 L 1 ) +VE ( J 5 If < WWF V-,f VE ( K ) +VWWFVif WE ( k ) ) +WWWF Vif WE ( J ) if 
IWE(k) 

GVa, J2)=GVn, J2)+AUX3 • ■ . , , 

GV i 1 7 K2 ) -GV < 1 7 K2 ) + ( VTTFVifVE ( J ) +WTTFVirWE ( J ) +TTTFV*THETAE GJ ) ) if 
ITHETAEvU 

GV < I , L2 ) ~G V (1 7 L Z ) + ( V VTFVif VE < K ) +VWTFVif WE ( k ) + VTTF Vif THET AE ( k ) ) ifVE < J ) 
1 + ( WWTFVifWE ( k ) +WTTFVif ^‘r.'ETAE ( k ) ) *WE ( J ) +TTTFVifTHETAE ( J ) ifTHETAE < k ) 

FV < I) =FV ( I ) +VE < J ) irAUX 1 +WE { J ) if AUX2+THE7AE ( J ) if AUX3 
AUX4- V VVFWif VE ( L ) +VVWFWif WE i L ) i-VVTFWv THETA E ( L ) 

AUX5~VWWFWifWE < L ) +VWTFWlcTHETAE < L ) 

ALiX6-WWWFWifWE ( L ) +WWTFWvTHETAS < L) 

AUX 1 - AUX 4ifVE ( k ) +ALiX5ifWE ( K > +VTTFW-5f AUX 
ALIX2=AUX6ifWE ( K ) +WTTFWif AUX 
ALIX3-TTTFWlfAUX 
GW < 1 7 J ) =^GW (1 7 J ) +ALI X 1 
GW < 1 7 K ) -GW n , k ) -f-AUX 4if VE i J ) 

GW < 1 7 L) -^GW n 7 L) +VVVFWif VE ( J ) 1^ VE ( K ) 

GWd, J1)-GW(I, J1 )+ALIX2 

GW ( 1 7 K 1 ) =GW < 1 7 k 1 ) +ALIX 5if VE ( J > +AUX6-if WE ( .J ) 

GW ( 1 7 L:L ) ‘—GW ( 1 7 L 1 ) +VE C ..U if ( VVWFWif VE < k ) +VWWFW-.f WE ( k ) ) +WWWFWWWE GJ) if 
lWE<k) 

6W < 1 7 J2 ) -GW ( 1 7 J2 ) "fAUX3 

GW ( 1 7 K2 ) -GW a 7 K2 5 + < VTTFWif VE ( J ) +WTTFWir WE ( J ) +TTTFWimHETAE < J ) ) if 
1THETAE<L) . 

GW ( 1 7 L2 ) -GW ( 1 7 L2 ) + ( V VTFWifVE < K ) + VWTFWl^WE ( K ) -fVTTFW-dHETAE K ) ) iHv'E i J >‘ 
i -r ( WWTFWifWE ( k ) +WTTFW^7HETAE ( K ) ) ifWE ( J ) +TTTFW--fTHETAE v J ) ifTHETAE < k ) 

FW (I ) ^-FW ( I ) +VE { J ) If AUX i+WE ( J ) * AUX2 -hTHE7hE ( J ) icAUXS 
AUX 1 -VVTFTifVE < K ) + VWTFT'.fWE ( K ) 

AUX2=WWTFTifWE(k> 
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OF POOR QUALITY 


• -i^* 2 +FW ( I ) ^f# 2 +FTHETA ( I ) i ^*2 


C GT a , J ) »^GT ( I > J ) +AUX i THETAE ( L ) 

0 GT < I , K ) =GT ( I , K ) + WTFT^r VE ( J ) ^THETmE < L ) 

C GT(Ii Ji )-GT<I, Ji )+AUX2#THETAE(U 

0 GT ( I , K 1 ) «GT < I , is 1 ) + < VWTFT-t^ VE ( J ) + WWTFT^* WE ( J ) ) li-THET AE i L J 

C GT ( I . L2 ) «-GT ( I . L2 ) +VE ( J ) liAUX 1 +WE ( J ) ttAUX2 

FTHETA ( I ) «FTHETA \ I ) + ( VE { J ) #AUX 1 +WE ( J ) 4*AUX2 ) ^^THETAE < L ) 

CONTINUE 
COi'iTINUE 
CONTINUE 
IlK-ri 
CONTINUE 
FSQwO . DO 

OQ.lQ^I»l/.NeyNCT 
FSU— FSQ+FV( lTii*2H 
CONTINUE 
FSQ=FSQ/2 
DO 4 J«i,NX 
GRAD ( J ) -^0 

C DO 5 I'-al,NFUNCT 

C GRAD ( J ) «GRAD ( J ) +FV ( I ) t^GU < I , J ) +FW i 1 ) <^GW \ I , U ) -f FTHETA < I ) ^GT < I ^ J 

C 5 CONTINUE 
4 CDivlTINUE 
RETURN 
END 

//G0.FT50F001 DD UNIT-3400-3, VOL-SER-XXXXXX , 

// D I SR- COLD, KEEP), 

// DSN-G ALERK IN. NONROT AT. HOVER. COEFFS, LABEL^C 4 , SL) 

/ / G 0 . SYS I N D D 
/■iJ- 
// 




4i* ni iHf « f ## •rit* <«» -t* 


1. 

2 , 

j»- 

v”( • 

4. 
?. 
n>. 
, 7. 

W# 

10 . 
11 . 
* 12 . 

13. 

14. 

15. 
13. 
17. 
1 3 . 

19, 

20 . 
21. 
22 . 

23. 

24. 

^.tr; 
jLw • 

23. 
27 « 
23, 

29. 

30. 

f 3 1 . 

Ul.^ « 

33. 

34 . 

35. 
33. 
37. 


39. 

40. 

41. 

42. 

43 . 

44. 

45. 
43. 
47. 
4fcl . 

49. 

50. 

51. 

52. 

53. 

54. 

55. 
5d. 
57 . 
53 . 

,59. 

30. 

31. 

32. 

3*ii* . 

34. 

35. 

33. 
37. 
3S . 
39. 

'70. 

71. 

72. 

73. 
•74. 


C 

o 

C; 

C 

c 

c 

c. 

c. 

3 


4f ' *■ ^ # 

■Jf COEFFREE 


ORIGIf^lAt IPAGE IS 
OF POOR QUAUTY 


it* &AICULATIQW CiF.THE GALERKIW^C-OEFFICIENT® FDR THE FLAP-LAD- 

hover using the l«lv-ROTftTII« 

IMPLICIT REALMS (A-HtD-Z) 

D I MENS I ON AU.Xl 1 00 1 , m ( 4 ) » Y <1 1 ) , ALPHA < S ) , BETA ( l=! ) 

S,S)»A<S ,B<8) ,C(S) ,nu'S,S) ,E<S,a)TF(S»S.S> 


DI MENS I ON, DELTA (S * , , ... 

1 bZ Sii 8» t!) » H ( 8» S» 8 ) » X i t S» 3 ) » X J ( £l» 3 ) * ( S» Sj S) j XM ( Sii £■') > XN ( 8» £i) » 0 v8» 8) 

^,1 P / § ’ § \ ’ SX?1 ’ 6 ^ § J ’ S 181, » A3 ( 8 »_ S I si » Be! ( 3 1 £i > £; » £i ) 1 03 f *5 » S! ? > 8 1 8 ) » 

w § ’ 2' 1 P ^ ’ 03 ( 8 > 3 ) ■» H3 ( 8 > Si £i » £i ) i X le! { !3 •» S'» S » 8 ) 

< S ’ ® > XK3 ( Si S) 1 XL3 (3,8), Xl‘13 < 8, 8 ) , XN3 ( 8 1 8 , 8 ) , 03 { 8 , 8 1 3 ) , 

5P3 ( b! , S 1 8 ) , Q3 < S 1 8 1 8 ) 1 R3 < 8 1 S » 8 > 8 ) , S3 ( 8 , 8 1 8 , 8 ) i T3 ( 8 , 8 , 8 ) i DEL ( 8 » 8 ) 
DIMENSION U3 (8s 3i 8 ) » 03 ( Si S> 8 ) > Wci ( S» 8 ) » X3 ( 8 » 8i 8 ) > Ye! ( SS 8S 8 ) » Zc! ( pS > S> 8 



,®’ ® 8) » T4 < Si S) 1 U4 (S j > V4 ( 8» 8? 8i 3 / » W4( 8» <3i 8) 
COMMuN ALPHA, BETA 

^EXTERInIAL^R FCTl i FCT2, FCT3, FCT4i FCT5i FCT3i FCT7, FCTSs FGT9, 


33 FORMAT <•" 

37 FORMAT < '' 

38 FORMAT (•' 

39 FORMAT <■' 

35 FORMAT (•'I-') 
33 FORMAT ( •' 

37 FORMAT (" 

38 FORMAT ( •' 

39 FORMATC*' 

70 FORMAT ( 

71 FORMAT<'' 
ITAPE NUMBER 
3333 FORMATC'’ 


•',3(D14.7,2X) ) 
'',2(D14.7,2X) ) 
*',//) 

i(D14.7,2X) ) 


•',7(D14.7,2X) ) 

;^,5CD14.7,2X) ) 

’• 1 / ) 

lERl TO IER20 s •^20^I2,2;<)) 

ALL THE GhLEkKIN—NuNRuTAT HOVER COEFFICIENTS 
T07313 <A PRIVATE TAPE)-') 

I •' 1 1 IX 1 BETA ( I > •' , 22X 1 ' ALPHA <!)•', 22X , 


3337 FORKIAT i -* , 1 OX , 1 2 , 3X > D25'.’ i 3 , 3X VD2b 

ElLI 1 I — i » is 
FOm=FUNF(O.DO, I) 

FO ( I ) »0 . DO 
1 CONTINUE 


lSi3X,D25. 18) 


WERE PUT ON 
CH. EQN.'') 




THE CONSTANTS ALPHA ( I ) AND BETA ( I ) 


•St 

•k 


C'Sf-JT 

C-»* 


111, 


BETA < 1 ) - 1 . 375 1 040387 1 1 93 1 1 1 DO 
BETA ( 2 ) -4 . 39409 1 1 .32974 1 74157D0 
BETA < 3 ) . 8547574382373 1 233D0 
BETA ( 4 ) - 1 0% 9955407S4S754370D0 * 

BETA ( 5 ) = 1 4 . 1 37 1 3839 1 0434723D0 . 

BETA < 3 ) = 1 7. 2787595320882339D0 
BETA ( 7 ) =20 . 42035225104 1 2473D0 
BETA ( 8 ) =23. 53 1 94490 1 8034451 DO 

CALCULATION OF THE ALPHA(I) CONSTANTS 

<^H?,5EPJHEHENT of THE Bn)''S BY A MODIFIED EWTOhrS METHOD, 
WRITE(3i3333) 

ERRORS 1 .D-IO 
DO nil 1 = 1,8 
X=BETACI) 
i X1=DC0SH<X) 

X2=DC0S ( X ) 

FBETA=i.D0+Xi-JtX2 


ill: 


XX=X-. 2D0«FBETA/ (D;=,INH(X )"^-X2 
TEST=.X/XX"i .DO 
IF (DABS ( TEST ) . LE . ERROR ) GO 
X "“X X 

GO TO 1112 

BETA ( I ) =X 
X1=DC0SH(X) 

X2=DC0S ( X ) 


-X1*DSIN(X) ) 
TO 11.13 



-r*.-=s 


7!5. 

76. 

77. 
7S. 
79. 

50. 

51. 
<52. 

<53 It 

S4. 

f**ieT* 

o5« 
S6i • 
Cl / • 

as. 

B9h 

90. 

91 . 

92. 

93. 


ORIGINAL 
OF POOR QUAUTY 


ALPHA ( I > < X 1 +X2 ) / ( nST NH (X > +DSI N < X n 
FBETA-1 .DO*J-X3^^X2 
WRITE (64,6667) I,X.ALFHA(n,FBETA 
ill! CCiWTiWUE 

WRITE(6,69) 

WRITE(6.69> 

*»* hk 

U 4f-kr(f ijf •«‘Sf w'k-^r n-ftirw'>t'W«- w>pwwst';i' 

ERROR- i . D-«1 
^ WERROR^iOO 
C 

C CALCULATION OF THE I JKL-SYHHETRTC 13 COEFFICIENTS 

IR1*0 
IR2«0 

DO 110 I>^i,S 
Du J 3 1 U— 1 » a 


iOf- IF(DABS(XI3(I, J,KSL) ) ,LE. i.D-4) XI3( I, JJ.', L)^0. DO 

110. 6u TO 110 

111. C 7 - 7 - PUT IJKL IN IWCREASTNG ORDER 

112. 141 NN(l)«i 

113. WN(2)=^J 

114. NN<3)-K 

115. NWi4)^L 

116. •' 10 - T 

117. DO 130 M=2,4 

US. I F ( I^IN < 1^1) . t:%E .10) GO TO 1 31 

llVi. Nk— i' 1 “l 

120. DO 132 W-UKK 

121. I F ( NN < M ) . OE . I‘J!4 ( l‘J ) ) GO TO 1 32 

122. ITX-NN<N) 

123,. NW(l\l)-=-NN(H) 

124. NN(H )=ITX 

125. 132 CONTINUE 

126. 131 IGM\IN(M) 

127. 130 CONTINUE 

12S. Mi-NN(l) 

129. I'12=M'JNC2) 

130. N3-NN(3) 

131. H4^4n1Nv4) 

1 32 . X 1 3 (I , J , N , L ) -X 1 3 ( M 1 . N2 , MS' , 1-14 ) 

133. 115 CONTINUE 

134. IR2-0 

135. 113 CONTINUE ** ’ ‘ 

136. Ill IRl^O 

137. 110 CONTINUE 

13S, C 

lci9. C UALuLILATI ON_iJF THE_“~ ( 1 7 J I K ■) L) _ COEFFICIENTS WITH I J—SYMMETR'i’ 

C f'l > N » 1 -I 3 j E > fs3 7 DEL I A 7 D » F 7 Uci 7 N4 3 SUBROUTINE FCTi I Si USEEi 
rr . 11 r-, , , Oci' 7 23 7 K 3 SUBROUT I I’lE FCT2 IS* LISED 

3 SUBROUTINE FCT3 IS USED 


140. 

C 


f'l > N 7 1 J 3 7 E 7 fswi 7 

141 .. 

c. 

•H'tir 

QU7F7U7H> Pci 7 

142. 

G 


R‘3 7 S3 7 w4 7 A4 

143. 

Cr 


• 

144, 

. 


DO 5 I -US 

145. 



l.lU Si J“*I 7 3 

146. 



NCALL-2 

14/ . 

• 


NI-] 0 

14S. 

, 


V ( 1 ) -0- DO 

149. 



Y ( 2 ) “0 . DO 


n 


94 . 


IR1 = 1 


i 

95. 

112 

DO 113 K-US 



96. 


IF(N.GE.J) GO TCI 114 


\ 

97. 


IR2-1 


! 

9S. 

114 

DO 115 L-US 



99. 


IF(L.LT.K) GO TO 141 



1 00 . 


I F < I R 1 . EQ . 0 . AND . I R2 . EQ . 0 ) GO TO 

119 


101. 


GO TO 141 


f 

102. 

119 

Y( 1 )=0. DO 



103. 


Nl-i 


1 

1 

104. 


HH-O.OIDO 



105. 


NCALL=i 


i * It 

106. 


. CALL DASCRU ( 0 . DO 7 1 . DO ; HH » N I , F 1 3 7 

Y 7 I ER j ) ALIX 7 1 7 J 7 K‘ 7 L 7 NCALL 7 ERROR 7 

- il 

Iu7. 

INERRGR) 


■ I ;l 




150. 

• 

151, 

152, 

153, 

• 

• 

154. 


155. 

156. 

157. 

• 

• 

15Fi. 

• 

J59. 

r 

160. 
161 . 
162. 

• 

163. 

991 

164. 

M 

165. 


166. 


1 67 . 


163. 


1 69 , 


170, 


171 . 

172. 

173. 

174. 


175. 

« 

176. 

177 . 

» 

173. 

* 

179, 

• 

ISO. 

* 

iSi . 


182. 

• . 99 

133. 


134. 


1 b>5 a 

• 

136. 


187. 

99G 

1 'd >r> . 


189. 


190, 

• 

191. 

• 

192. 

193. 

4>« 

194. 

• 

195. 

196>. 

1 

* 


4 y / . 

J.9S. 

i99. 


ORIGINAL 
Op POOR QUAUW, 


n 


Y(3)«.0.DCi 
Y(4)«CkD0 
Y(5)*^0,.D0 
Y(&)k-O.DO 
Y<7)»-0.ri0 
Y(S)«O.DO 
Y<5>)«O.DO 
Y(iO)~O.DO 
HH«0.01DO 

CALL , DASCRLI ( 0 . DO . I . DO , HH , N I , FCT 1 , Y , JER2 , AUX i I . J , K , L , N’CALL , ERROR i 
iNERROR) 

DO 991 lA-iaO 

IRCDABS(Y<IA) ).LE.1.D"4) Y<IA)«O.DO 

CONTINUE 

XM(I, J)«Y(1) 

XN(I»J)-Y<2) 

XJ3(r, J)!^Y(3) 

E{I,J)pY<4) 

XK'Sa , J)-Y(5) 

DELTAd, J)-Y(o/ 

IFCI.NE.J) DELTAd, J)-O.DO 
D<I,J)i«y(7) 

Pd, J)ay<i=i> 

IFd.NE.J) Pd,J)«O.DO 
G3d, J->«Y(9> 

XN4d, J)--.YdO) ... 

DO 7 KpdS 
NLi ALL“C> 

NI=10 ♦ • . . . 

HH-0.0.1D0 

Y?I^?S'0?D0^’^‘‘’‘ ..... 

! , CONTINUE 

uALL DAbCRU i 0. DO, j • DO, nH, NI » FCT2, Y , lERC^ AuX , I » J , (■%, i 
iNERROR) 
no 99cf IA~idO 

IF<DABS(YdA) ) .LE-. i.n-4) YdA)~0.n0 
CONTINUE 
Q3d,J,K)=Vd) 

F<I, J,N)~Y<3)/BETA(K*)4^^4 
Gd,J,K)=Y(4) 

Hd,J,K)~Y(5) 

P3d, J.,K)~Y(6) . 

T3<I, J,K):^Y(7) 

V3d, .J*,K)«Y(3) 

Z3d,U.,K)=-Y(9) 

XK<I, J.,K)==Y< 10) 

DO S L-1,S 
NCALL-4 
NI~0 


, NCALL , ERROR , 


200. 

HH-0. OIDO 

201 . 

Yd) »0 . DO 

202 . 

Y< 2) -o.no 

203. 

Y(3)-0.D0 

204 . 

Y(4)-O.DO 

205 . 

Y(5)=^0.D0 

206. 

CALL DASCRU < 0 . DO , 

207. 

INERRDR) 

/U'ci * 

DO 904 JA-i,5 

2:09. 

JF<nABS<YdH) ) .LE 

210. 

904 CONTINUE 

i 1 ■ 

R3d, J,K,L)=Yd) 

212. 

S3d, J,K,L)-Y(3) 

213. 

Q4<I,U,K,L)-Y(4) 

214- 

A4d,.;,K,L)-Y(5) 

215. 

R3LJd,K,L)-y<l) 

216. 

S3( J, I,K,L)=Y(3) 

.•M / . 

Q4( J, I ,K,L ) -Yd ) 

X Cl > 

A4(Jd,K,L)=V(5) 

219. 

0 CONTINUE 

220. 

Uc! ( *J , I , K ^ “04ci ( I , i_l , i 

221 , 

FUJ, I,N)=-Fd, J,k’) 

phm ypm II 

G(J, I ,k')-.Gd, J,k) 

jCa^.C* * 

Hdld,k)~HvI, J,k) 

«ii.i4 » 

F C' ^ U , I , T \ ) —F c* \ Ji , U , i 


i . DO , HH , i'J I , FCT3 , Y, I ER4 , AUX , J , J , K' , L , NCAL«L , ERROR , 


D~4 ) Y ( I H ) ~sj , DO 


r” 


-» ■ ■ ' *****«^ - ■■' *«■ .i-S 


*ii ct«i 


7^26 • 

'907 

4U«« f # 

228. 

22'^ 

230, 

2S1. 

232. 

• 

2S4. 

23SI. 

236. 

Pi' 

239. 

240. 

241. 

242. 

243. 

244. 

245. 

246. 

247. 

<i!4fct . 

249. 

X wl U « 

251. 

"'FlO' 

wl • 

253. 

254. 

256 . 

2‘5y . 

259. 

260. 
261 . 
'•'A"' 

4* W li^ 0 

2 A ct . 

z'64 • 

265. 

266. 


26 U . 

269. 

270. 

27 :l . 
272. 

■070' 
A / •Z‘m 

274. 

275 . 

276. 

277. 

O' 70 
A/ <Z‘t 

279. 

AO\J . 

0>O I 
.IlCi 1 • 
O'OO 

^ l-( m 


T3(J, I»K)^T3(r, J,K) 

V3 ( iJ » I » K ) *'V3 ( I > iJ » K) 
Z3<J, I.K)«Z3n, J.K) 
XK(J, I.K)«XK*(I. J»K) 

7 CONTINUE. 

XN(J,I)~XH(I, J) 

XN(J, n«XN<I,U) 

XJ3(J| I)«XU3a,U> 
E<J,I)*E<I,J) 

XK'3< J. I )«XK3(I. J) 
DELTACJ. I)«-DELTAa,U) 
D^J, I>u.n<I, J) 

p(j, i)~pcr, j) 

G3<J, I)'-^0i3<I> J) 

XN4< J, I)«XN4(I, J) 

6 CONTINUE 
5 CONTINUE 

CALCULATION OF THE - 


rsS'« 


c 
c 
c 

Ci 'ii'it 
0 


0S,U3.N3, XS.S4 
I4,C4 


• a , J u : , L ) C.OEr F I Cl ENTS N I TH JK-SVI‘iHETnY 
SUBROUTINE FCT4 IS USED 
SUBROUTINE FCT5 IS USED 


994 








DO 9 1-1,8 
DO 10 J-1,8 
DO 11 K«J,8 

NCALL-5 • . 

NI«6 

HH-O.OIDO 
DO 994 I A- 1,6 
Y<IA)-O.DO 
CONTINUE 

. CALL^ DASCRLI { 0 . DO , 1 . DO , HH , NI , FCT4 , Y , I ERO , AUX , I , J , K , L , N'CALL , ERROR , 
1 NERROR ) 

DO 995 I A- 1,6 

IF(i:!ABS(YaA) ) .LE. l.D-4) YaA)-O.DO 

CONTINUE 

03(1, J,K‘/=Y<1) 

1.13(1, J,K)=Y(2) 

84(1, J,K)-Y(5) 

DO 12 L«J,S 
NCALL-6 

f\l T ki • . 

HH-O.OiDO 
Y(i)-O.DO 
Y(2)«0. DO 
Y ( 3 ) -0 . no 

^ CALL „DASCRU ( 0 . DO , 1 . DO , HH , N I , FCT3 AM ERA , AUX , I , U , f.' , L , NCALL , ERROR , 
1 NERROR ) 

IF(DABS(Y(1) ).LE. i.n-4) Y(1)=^0.D0 
IF(DABS(Y(2) ).LE. i.D-4) Y(2):“,0.D0 
IF(DABS(Y(3) ) .LE. l.D-4)* Y(3)-fr.D0 
XI4(I,U,K,L)=Y(1) 

04(1, J,K,L)-Y(3) 

X14(I,K, J,L)=Y(1) 

C4(I,K, J,L)«Y(3) 

V4 V I , J , N, L > -S3 ( J, K , L , I ) ~F0 ( I ) ^rS3 ( J , K , L > 1 ) 


tft 


*1 

• . 12 

C.CINTII4UE 


.:!(<*• 4 ■ 


03(I,k’, J)-03(I, J,K‘) 

1 


• 

U3(I,K, J)-U3(I, J-,K) 


286 . 


XN3(I.,K, J)-XN3(I, J,l<) 

i 

287. 


X3(I,k, J)«X3(I, J,K) 


2WS, 


S4(I,k, J)-S4a, J, K) 

1 

289 . 

11 

CONTINUE 

1 

290. 

10 

CONTINUE 


291 . 

9 

CONTIjvlUE 


?,92. 

C 



293. 

c -fr-K-rf* CALCULATION OF THE COEFFICIENTS WITH ( I J-KL> -SYMMETRY 


294. 

L, 

» » 


290. 

C 

Ci4 ( I , U,7 K, L ) , B3! ( I , K , L , >J ) , Fc! ( I , U , K, L ) , Li 4 ( I , *J , f's , L ) , L4 ( I , «J » N » L ) 

E3 ( I , J , K , L ) , H3 ( I , J , K , L) ARE^ CALCULATED US I NO SU5R0UT x IslE FCT6 


2;96. 

C 


2'97 . 

C 


298. 


DO 1 I — 1 , 8 


299. 


no 14 j-i,s 





300. 

301. 

302. 

303. 

304. 

305. 
30&t 
307. 
SpB. 

309. 

310. 

311. 

Oi O 

w* JL • 

c> 1 c> . 
Sil 4 . 
315. 

1 Ui • 

317. 

31©. 

319. 

320.. 

i 

*cm Jk • 

322 . 
327J, 

324. 

325. 

4 4.^ C»* ■ 

2;27. 


'“.fro 

C’S 2^ • 
5ft!»0 V 

3©1. 

334 . 
365 . 

3<6t6< a 

367 . 

'i’A O 

«£>OC* a 

v*C*9 • 

370. 

♦67 1 m 

*Z* / m 
•Z* / *J!» • 

374. 




‘ DO 15-K*1,S 

D 0 16 .Li‘K.© 

. WCALU«7 

NI~9 

» HH«0.t)lD0 

DO 998 IA-*1,9 
. YaA)|=0.D0 

998 CONTil'iLlE 

CALL DASCRU O.DD 
. 1NERRC*R) 

DO 999, IA»1,S( ' 

* IF<DABS(Y(IA.)).LE 

999 CONTINUE = 

• Ci4^I?U»K»L) ^^Y ( 1 ) • 

F3{I,tl»K,U~Y(S) 
G 4 CI.U»K<L)fY(; 42 , 
XL4(I., J,K.L)^Y<5) 
E3U,jJ.N>L)»Yv7). 
H3CI, J,N.L)-Y<S) 

D4(I, J,L,K)^Y(1). 
B3<I,t.»K, J)«Y<2) 
FSa, J,L,K)-Y(3) 
G4(I.*J,L,K)-Y<4) 

.■ XL4< I, J,L,K)^Y(5) 

E3(I,U»L»K)-Y(7). 
‘ • Y(S) 




OF* POOR QUAUTV 


1 . DO, HH» Nr, FCT&, Y, IER7, ALIX , I , U, K’> L, NCALL, ERROR, 

» 

. i.D-4) Y<tA)«0.Du ' 


32 £« . 

c; 


* * * . 

329 . 

* 

D 4 <J, I,K,L)-Y( 1 ) 

• 

330 . 

■ 

B 3 (J,K„L, I)«Y( 2 ). 


4 

« 


F 3 (J, I,K,L)wY< 3 )* 


' * t 

• 

G 4 (J,'I,K,L)«Yj 4 )- 

” 



XL 4 ( J.» I » K , L ) >= r V o j 

f « 

3 . 34 . 


E 3 .CJ, I,K,L)-y< 7 ) 


m 


H 3 (J. I,K,U-‘Y(S)* 

4 » 



16 . CONTINUE 


*T'T 
/ • • 

♦ 

15 CONTINUE 

, 

c**z«o • 


14 CONTINUE . . . 


0 *t ‘0 

• 


13 CONTINUE 


340 . 

c 

* • « 

• 

341 , 

c 

CALCULATION OF THE CDEFF-ICIENTS 

WITH Jk'L-SYHMETRY 

342 . 

c 



cl ■ 

c 

jf-tf B 4 ( I,U,K»L) ,C 2 NU, I ,!■. ,L) ,E 4 LJ,K,L» I) 

, F 4 \ J , I , K , L) ARE CALCULATED 

344 . 

c. 

■if it USING SUBROUTINE FCT 7 


345 . 

c 



343 . 


IR «0 


. 347 . 


DO 210 I-i,S _ . ... 


C»M '0 « 


no 211 J-i,S' 


. 349 . 


DO 212 K^ 1 ,.S 


350 . 


IF(K.GE.J) GO TO 21.3 


•ZiK 1 
4 . « 


IR-i 


Ci,.i,C m 


213 DO 214 ..,L- 1 ,S 


353 . 


IF<L.LT.K) GO TO 241 


354 . 


IFdR.EQ.O) GO TO 215 


'.er; 


GO TO 241 

. . . 

SG<Ti . 


2 l 5 NCALL— fei 

• * 

oG / • 


NI *>4 

♦ 


HH-^O.OIDO 
y ( 1 ) “0 . DO 
Y( 2 ) -o.no 
Y(3)-0.,U0 
Y(4)=-0.D0 

CALL DASCRU < 0 . DO , 1 . DO , HH , N I , FDT7 , Y , I ERS , AUX , I. J , K , L , KiCALL , ERROR , 
INERROR) ... 

I F < DABS < Y ( 1 ) ) . LE. 1 . D-4 ) V ( J 5 -0. DO 
IF ( DABS ( Y < 2 ) ) . LE, 1 . D-4 ) Y (2 ) =0 . DO 
IF < DABS ( Y ( 3 ) ) . LE , 1 , D-4 ) Y ( 3 ) -0 , DO 
IF(nABS(Y<4> ) .LE. l.D-4) Y<4)-0.D0 
B4<I. J,N,L)™Y(i) 

C3< J-, I,N,L)-Y<2) 

E4< J,K,L, I)«Y{3) 

F4< J, I,n,L)-Y<4) 

00 TO 2.14 

PUT JL‘L IN INCREfiiSINO ORDER 


H'W 


' ” C l'*’!' !.. '• ■ •**f 


»*• H.’., 


375. 

241 

HH( 1 )«J 


376. 


NN<2)=K 


377. 


NN<3)=L 


378. 


IG-J 


379. 


DO 216 M-2,3 


3S0. 


IF(NN(H) .GE. IG) GO 

TO 

381. 


K'K»H-1 


Cj 

4:1:1 ■ 


DO 21 s N~1,KR‘ 


tiTiWO m 


IF(NN(M) .GE.NN(N) ) 

GO 

38 <1'. 


ITX^"NN(N) 


335. 


NN(N)-NN(M) 


ciSd » 


NN(M)=:ITX 


/ ■ 

Oi 0 

Cr 

CONTINUE 


388, 

217 

IG=NN(M) 


3Sv H 

216 

CONTINUE 


390. 


M1-NN( 1 ) 


391 , 


M2-NN(2) 


3y2 • 


,M3-NN(3) 



‘ORIGINAL PAGf. fS 
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B4 (I , J» K, L ) ^’B4 ( I , Ml , M2, M3 ) 
C.3 < J , I , K , L) ~C3 ( i>1 1,1, M2 , M3 ) 
E4(J,K,L, I)=^E4(M1,M2,M3, I) 


3V6 • 



F4(J, I,K,L)-F4( 

397. 


214 

CONTINUE 

T' Cv C' 
0 "'C> • 



IR =0 

399. 


•? 

CONTINUE 

400. 


211 

CONTINUE 

40 1 . 


210 

CONTINUE 

402. 

C 



A 03 . 

C 

CALCULATION OF 

404. 

c 



405, 

c 


R,D3,L3,K4,T4 

406. 

c 


A3,Y3, J4,M4,W4 

407. 

c 


(M4a,J,K> HAS 

409. 



no 25 1 - 1,8 

410. 



AUX2-BETA<I)-(^-}f2 

411. 



Du 26 U— J , 8 

412. 



BJ2-BETA< 

413. 



B J4-BETA ( J ) -JfHH 

414. 



AUXi=AUX2^cBJ2 

415. 



NCALL-9 

416, 



NI=^5 

417. 



HH»0 . 0 1 DO 

**1 1 *c* • 



DO 666 I A- 1,5 

419. 



Y(IA)=0.D0 

420 , 


606 

CONTINUE 

421 . 



CALL DASCRU (O.D 

422 . 



INERROR) 


: USING SUBROUTINE FCTS 
: LiSIlCi SUBROUTINE FCT9 


DO 66.7 I A- 1,0 

IF(DABS(Y< lA) ) .LE. l.D-4) y(IA)=O.DO 
66.7 CONTINUE 

R(I, J)=Yn ) 

D3\'I, J)=Y(2) 

XL3(I, J>.=Y(3) 

XK4( I, J)j^Y(4) 

T4 ( I , J ) ~Y ( 5 ) /B J4-4 . DO/ ALIX 1 
I F ( DABS < T4 ( I , J ) ) . LE . 1 . D-4 ) T4 < I , J ) *-0 , DO 
25.1 DO 27 K‘-1,S 
NO ALL- 10 
NI-3 

HH-O.OIDO 

EiU 6.6.izi xA— 1 , o . V . 

Y(IA)=O.DO 

668 CONTINUE 

CALL DASCRU ( 0. DO , 1 . DO , HH , N I , FCT9 , Y , I ER 1 0 , AUX , I , J , K , L , NCALL , ERROR . 
INERROR) 

DO 669 I A— 1,6 

IF(DABS<Y(IA)).LE.l.D-4) YdAJ-O.DO 

669 CONTINUE 
A3a,J,K)=YU) 

Y3(I,U,K)=Y(2) 

XJ4 (I , J, K ) - Y ( 3 ) /BJ4-2. DO-^^Y ( 4 ) /BJ2 
XM4(I, J,K)-Y(5)/BJ4 
W4(I, J,K) =^Y(6)/BJ4 
27 CONTINUE 


450. 


26 

CONTINUE 

451. 


25 

CONTINUE 

452. 

C 



453. 

C 

■** ■ff •k-H iHf * ■tf * "iHf "iHr * ■i^ ■}«■* ■W *•*<■*•*<••<*••)(• ■it * ■fr * * 

* 454. 

C 

•W 

* 

455. 

c 

* 

THE COEFFICIENTS F'4»R4,Y4 * 

456. 

0 

* 

•it* 

457. 



DO 17 1-1,3 

45S. 



DO IS J-liS 

459 . 



DO 19 K«liS 

460, 



P4<I, J,K)-~A3<K', Ji I) 

461. 



DO 20 L«l,3 

462. 



R4 d , J, K, L) ‘--F3 < K, L,. I , J ) 

463. 



V4d, J,K,L)«S3< J,K,Li I ) 

464. 


20 

CONTINUE 

465. 


19 

CONTINUE 

466. 


IS 

CONTINUE 

467. 


17 

CONTINUE 

468. 

c 

•it 

•it 

469. 

c 

i*'if-if'ifiHt'Sf'if'it*i«"tt-it'ifit'it-it'it-ir'if'{t'it-tt'it'ir*'it'itit'il:'i«--fi‘ 

47v'). 

c 



471. 

c 

•itiHt CALCULATION OF THE REMAINING 
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472. 

473. 

474. 

475. 
^7o. 
477 1. 
473. 

479. 

480. 

431. 

432 . 

433. 

4 34. 
485. 
406. 
437. 
430 . 

489 . 

490. 
49 i . 

492. 

493. 

494. 

495. 

496 . 

497. 
493 . 

499. 

500 . 

501 . 

502. 

503 . 

504. 

505. 

506 . 

507 . 
SOS . 
509 . 
5.10. 
Si 1 . 
512. 
SIS. 

514. 

515. 

516. 
5vl7. 
SIS. 

519. 

520. 

521 . 

523. 

524. 


C 

C 

C 

C 

C. 


DEL(I,J) AND 

A» B> CtQ»S, H4» U4 : USING 
■if* I } J » 0 T 1*13 » W3 » 04 ! US 1 140 


SUBROUTINE FCTIO 
SUBROUTINE FCTll 


•1 


DO 29 I~1»S 
NI-1 

IF<I.EQ. l.OR. I.EQ.3.0R. I . EQ. S. OR. I . EQ. 7) NT- 
AUX i«ALPHA < I ) /BETA < I) 

NO ALL- 11 
NT -7 

HH- 0.0 IDO 
DO 670 IA-177 
Y< IA)‘===0.D0 

670 CONTINUE 

CALL D ASCRIJ ( 0 . DO , 1 . DO , HH , N I , FCT 1 0 » Y . I ER 1 1 , AU X » I , J , K , L , NO ALL , ERROR , 
INERROR) 

DO 671 IA-1,7 

IF<DABS(YaA) ) .LE. l.D-4. Y< IA).-O.DO 

671 CONTINUE 
A { I ) -Y <1 ) 

B<I)=Y(2) . . , 

C(n-*Y(3) 

Q< I)-Y(4) 

S(I)~Y(5) 

H4<n==Y(6) 

U4(I)-Y<7> 

DO 30 J-1,S 
NJ=^1 

I F v' J , EQ . 1 . OR . J . EQ . 3 . OR . J . EQ . 5 . OR . J . EQ . 7 ^ 14 J =.- 1 

NIU-NI*NJ 

B J2^BETA ( J ) **2 

DELd, J):^O.DO 

IFd.EQ.J) DEL(I,J)-1.D0 

NCALL:=12 

NI-6 

HH-O. OIDO 
DO 672 IA“1'»6 
Y(IA)-O.DO 

672 C0I4TINUF 

CALL DASCRLKO.DO, l.DO,HH,NI,FCTli, Y, IER12,AUX, I , J, K% L> NCALL, ERROR, 
:l NERRCiR ) 

DO 67s IA~1,6 

I F ( DABS < N' ( I A ) ) . LE . 1 . D-4 ) Y d A ) -0 . DO 

673 CONTINUE 

XI d,U)-Yd ) 

XJd,J)-Y(2) 

Od, J)-Y(3) 

XN3 d . J ) - ( Y ( 6 ) /B J2‘-4*AL1X 1 ) /B J2 
I F i DABS ( XN3 d , J ) ) . LE . 1 . D-4 ) Xl-13 d , U ) - 0 . DO 
W3d, J)-YC4) 

04d,J)-Y05) 

30 CONTINUE 


», ; 




■rrj^- 


t »- 




, j T** 

. * * ■ ■ 


52S. 

iw<26 . 

527. 

528. 

529. 
580. 
531. 

f5! •■Ji 

# 

irjOO 

584. 

535. 

5c<Ci • 

537. 

tSOO 
OCiO . 

539. 

540. 

541 . 

542. 

543. 

544. 

545. 

546. 

547. 
54fcl a 
349. 

550 . 

551 . 

552. 

W *^1 » 

554. 


555 

556. 

557. 
553. 
539. 

560 . 

561 . 

OCuCl . 

563 . 

564. 

565. 

566 . 

567. 
S6S. 

569. 

570. 
571 . 

572. 

573. 

574. 


5/5. 
576. 
577*. 
573. 
579”, 
530 . 
581 . 
532 . 

O « 

C'IC'A 
«JO^ m 

crC'CS 

W • 

586. 

587. 

OC<C' « 

5£i9 . 

590 . 

591 . 

rr.C/O 

593. 

594. 

. 

596. 

597. 
593 . 
599. 


i. ■ 

• 'V'-s ' • v*e 

, . ^ «■•...■ •'■."‘■A'"”*’. 

’ " i tlf l T I • 


c 


29 CONTINUE 


C CORRECTING XH4<I,J,K) AND W4(I,..,K) 

C 

DO 31 I«1,S 
DO 32 J~1,S 


O^PO^^i^LITY, 




iJIthTt 

oo 


B J2=BET A ( J ) 2 

DO 33* 1 1 3 

XM4 ( I , J , K ) "XM4 < I , J , K ) -2 . DO^DEL ( I , K ) /BJ2 
W4 < I • J , K ) ~W4 < I , J , K ) -2 . D0^>« ( I , K ) /B J2 
I F ( DABS ( XM4 (I , J, K ) ) . LE .. 1 . D-4 ) XN4 ( I , J, K ) =0 . DO 
I F ( DABS < W4 < I , J , K ) ) . LE . 1 . D“4 ) W4 < I , J , K ) -0 . DO 
CONTINUE ■ * 

CONTINUE 


C 

C 


III CONTINUE 


C i GO TO 498 IF THE OUTPUT ! 
* C IS i'JOT TO BE PUT ON TAPE 
C * * 

GO TO 498 

C ■» •»• 

C # -{f ■?(■•{{"?{' -5? -ft #•}<•}{■ 7c ■if # "ft ■W 


C 

C 

C 


WRITTING OF THE OUTPUT ON TAPE 

DO 400 I«l ,8 
WRITE(50) A< I) , B( n , C( I ) , Q< I ) , S< I) ,H4( I) , 1.14(1 ) 

400 CONTINUE 

DO 411 I~1,S 

DO 420 J^l ,8 - ■ . 

WRITE (50) DEL ( !■/ J ) .DELTA ( I , J) . D ( I , J ) , E ( I , J ) , XI ( I , J ) . XJ( I . J) 
WRITE ( 50 ) XM ( I . J ) , XN ( I . J ) . 0 ( I . J ) , P ( I , J ) , R ( I , J ) . D3 ( I , J ) 

WRITE ( 50 ) G3 ( I , J ) , X J3 ( I , J ) , XK3 ( I , J) , XL3 ( I , J ) , XN3 ( I . J ) , W3 ( I . J ) 
WRITE( 50 ) XK4 ( I , J ) , XN4 ( I , J) , 04 ( 1 , J ) , T4 ( I , J ) 

420 CONTINUE 
411 CONTINUE 

Du 43 U I 1 J S 
Du 440 ^.1—1 T 3 
DO 450 K-1,S 

WR I TE ( 50 ) F ( I , J . K ) . G ( I , J , K ) , H ( I , J , K 5 , XK ( I . .J , ) v A3 ( I , J . K ) 
l.XN3(I,J,K) 

WR I TE ( 50 ). 03 ( I , J . K ) , P3 ( I . J", K ) . 03' ( I . J . K ) , T3 ( I , J , K ) . U3 ( I , -J , K ) 

1 » V3 ( I •> i- 1 3 K ) 

WRITE(50) X3( I , J. K) . Y3( I , J, K) . Z3( I , J, K) . XJ4( I , J, K) , XH4( I , J, lO 
1,P4(I,J,K) 

WRITE(50) S4(I,J,K) ,W4(I, J,K) 

450 CONTINUE 
440 CONTINUE 
430 CONTINUE 

DO 460 1=1,8 ‘ 

Du 4 / U U^l , 3 
DO 480 K'-l.S 
DO 490 L=1,S 

WR I TE ( 50 ) Be* ^ I , i.l , K > L ) ’ U3 ( I , >.1 , K , L ) , Eu ( i ? U , K. , L ) , t" o’ ( I , >J , K , L / 

1 , H3 ( I , J , K , L ) , X 1 3 ( I , J , , L ) 

WR I TE ( 50 ) R3 ( I , J , K , L) , S3 ( I , J , K , L ) , A 4 ( I , J , K , L. ) , B 4 (I , .J , K , L 
1 7 C4 ( I , I J 7 K 7 L ) 7 D4 ( I , U , K ? i_ ) 

WRITE ( 50 ) E4 ( 1 7 J, k, L) 7 F4 ( r, J, K 7 L ) , G4 ( I , J, K, L ) 7 X I-il ( I > J , K:» L > 

1 7 A L 4 ( 1 7 <-l 7 K 7 L ) 7 U 4 ( 1 7 U 7 K 7 L ) 

WRITE(50) R4(I, J7K,L) ,04(1, J7K,L) 

490 CONTINUE 
480 CONTINUE 
470 CGI'ITINUE 
460 CONTINUE 

WRITE (6, 71 ) 

C 7c7f Tc^TcTcTcTcTcTcTcii’ 

C 7c7c7c#7f7('7c'fc7r7f ■fCTcTcT^’ 

GO TO 499 

C 7c7c-sc7^7c7t7{'7f*7^7c-ic7c# 

C: *7c-jc7$-5lv7Hc7f7c7c7Hc7c 

C 

C TcTc 7r7r7c7f7f7c7r7c7{'7c7c7c7c7c7c7c'>c7r7cw7c7f7c7c7c7f 7f 7cic7c7c7Hc7c7«’Vr7f7{-7<-ir7c7cw7r7f 


Lf 


‘ %<!» 


OF POOR QUALITY ’ 


6ti3. 

Ci54. 


656. 

48 CONTINUE 

* 

657. 

WRITE (6>, 68) 


658 . 

WRITE (6, 807) 


659. 

807 FORMAT ( ■' Q-’ 


660 . 

• • • ‘ • DO 49' 1=5' ■ 


661 . 

WRITE (6., 67) 

0 ( I , 1) . 0 ( I 

662. 

49 CONTINUE 


C‘6si* . 

WRITE (6, 65) 


(ifC'4 . 

WRITE (6, SOS) 

■* 

665. 

803 FORMAT!/ P " ) 


666. 

DO 50 1=5 


667. 

WRITE (6, 67) 

p ( 1 , 1 ) , p ( I 

o * 

50 CliNTINUE 


669. 

WRITE (6, 68) 


670. 

WRITE (6, 309) 


67 1 . 

809 FORMAT(- R-) 


6'7rf^ . 

Du 51 1=5 


673. 

WR I TE ( 6 , 67 ) 

R ( 1 , 1 ) , R ( I 

674. 

51 COi'JTINLIE 



C 70 FORMAK-' lERl TO IER20 : , 20{ 12, 2X ) ) I 

C WRITE(&,70) lERl, IER2, IER3, IER4, lERO, IER6, IER7, lERS, IER9, lERlO .. 

C 1, lERil, IER12, IER13, IER14, .IER15, IER16, JER17, lERiS, TER19, IER20 ? 

L»» * k-*“ 

” »>** 

C h 

49S WRITE(6,&5) „ . h 

no 40 1-5 - . V- 

WRiTE(6,66) A(i),an),ca),Q<n,s{i),H4a),U4(i) a 

40 CONTINUE W 

WRITE(<i.^69) , ^ H 

WRITE < 6767 ) DEL (1,1), DEL ( 1 , 2 ) , DEL < 1 , 3 ) , DEL < 1 , 4 ) , DEL ( 1 , 5 ) | 

41 CONTINUE R. 

WRITE (6, 68) , |i' 

WRITE(6,800) B 

BOO FORMAT ('- DELTA •' ) r 

DO 42 1=5 E- 

WR I TE < 6 , 67 ) DELTA (1,1), DELTA (1,2), DELTA (1,3), DELTA (1,4), DELTA (1,5) 

42 CONTINUE 1;. 

WRITE(6,6S) t‘: 

WRITE (6, 801) r 

SOI FORMA T(-- D-) . f 

DO 43 1=5 ; 

WRITE(6,67) D(I,1),D(I,2),D(I,3),D(I,4),D(I,5) * 

43 CONTINUE • 

WRITE (6, 68) . •• 

WRITE(6,S02) 

802 FORMAT (*' £■' ) : 

DO 44 1=5 Li 

WRITE(6,67) E(I,i),E(I,2),E(I,3),E(I,4),E(I,5) h 

44 CONTINUE f' 

WRITE (6, 68) ?l 

WRITE (6, 803) U 

803 FORMAT (•- I-') . 

DO 45 1=5 H 

WRITE(6,67) XKI, 1), XI (I, 2), XI (I, 3), XI (I, 4), XI (I, 5) 

45 CONTINUE , . r,, 

WRITE (6, 68) t‘ 

WRITE (6, 804) • 5 

804 FORMAT (■' J-‘) ' ^ 

- DO 46 1=5 

WRITE ( 6, 67 ) X J ( 1 , 1 ) , X J ( 1 , 2 ) , X J ( 1 , 3 ) , X J ( 1 , 4 ) , X J ( 1 , 5 ) i 

46 CONTINUE f 

WRITE (6, 68) r 

WRITE (6, 805) ^ 

805 FORMAT (••■ M-‘ ) t; 

DO 47 1=5 ■ 

WRITE(6,67) XM(I,1),XM(I,2),XM(I,3),XM(I,4) ,XH(I,5) 

47 CONTINUE . . ^ 

WRITE (6, 68) 

WRITE (6, 806 5 ’ , • 

806 FORMATS •' N '" ) 

DO 48 1=5 

WRITE ( 6,67 ) XN ( 1 , 1') , XN ( 1 , 2) , XN ( 1 , 3 ) , XN ( 1 , 4 5 , XN ( 1 , 5 ) 


} 








675. 

676. 

677. 

678. 

679 . 
680 • 
681. 
682. 
6<8c> . 

684 . 
635. 
836* . 
687. 

L C <0 
OCiO • 

Cifciy • 

690. 

691 . 

692. 

C''?^ 8 . 

694. 

695. 

8V6' a 

697. 

698. 

699 . 

700 . 

701. 

702. 
Z03. 
704. 


OF POOR QUALITY, 


SIO 


311 


«:o 

•mI w> 


C * 1 ‘*1 


WRITE <6, 63) 

WRITE(6>S10) 

FORMAT D3-') 

DO 52 1=5 

WRITE<6, 67) D3( I , 1 ) , D3(I , 2) , D3< I , 3) , D3( I , 4 ) , D3(I , 5) ■ 

UUNTINLIE 

WRITE (6, 63) 

WRITE(6,S11 ) 

F0RMAT<’' G3>') 

DO 53 1=5 

WRITER 6, 67) OSn , 1 ) , G3< 1 , 2) , G3( 1 , 3) , 03(1 , -1) , G3( 1 , 5) 
UUNTINLIE 

WRITE(6,6S) ■ • 

WRITE(6,S12) 

FORMAT (“• J3*') 

DO 54 1=5 


WRTTE(6, 67) XJ3( I , 1 ) , XJ3( I , 2 

54 CONTINUE 
WRITE (6, 63) 

WRITE(6,S13) 

313 FORMAT (-^ KSM 
DO 55 I-=5 
WR I TE ( 6 , 67 ) XK3 (1,1), XK3 (1,2 

55 CONTINUE 
WRITE (6, 63) 

WRITE(6,S14) 

314 FORMAT ( •' L3'* ) 

DO 56 1=5 

, WRITE (6, 67) XL3(I, 1),XL3(I,2 

56 CONTINUE 


705. 


WRITE (6, 68) 

706. 


WRITE(6,S15) 

7M’ 

315 

F0RMAT('' M3'' 

/U3. 


DO 57 1=5 

709. 


WRITE (6, 67) 

710. 

57 

CONTINUE 

711. 


WRITE(6,6S) 

712. 


WRITE(6,S16) 

713. 

it! 1 & 

FORMAT (•' W3-' 

714. 


DO 53 1=5 

715. 


WRITE (6, 67) 

716. 

Sw 

CONTINUE 

717. 

* 

WRITE(6,65) 

713. 


WRITE(6,S17) 

719. 

317 

FORMAT (•- K4-' 

720. 


DO 59 1=5 

721. 


WRITE (6, 67) 

722. 

59 

CONTINUE 

723. 


WRITE (6, 63) 

724. 


WRITE(6,3iS) 

725. 

3 1 3 

FORMAT (•• N4'' 

726. 


DO 60 1=5 

72/ . 


WRITE (6, 67) 

723. 

60 

CONTINUE 

729. 


WRITE (6, 63) 

730. 


WRITE (6, 31 9) 

731 . 

8 1 9 

FORMAT ( •' 04 ' 

^2. 


DO 61 1=5 

/ O • 


WRITE(6,67) 

734. 

61 

CONTINUE 

735. 


WRITE(6,6S) 

736. 


WRITE(6,S2 

737. 

820 

FORMAT (-• T4‘- 

7 ol3 . 


DO 62 1=5 

739. 


WRITE(6,67) 

740. 

62 

CONTINUE 

741. 


WRITE (6, 65) 

742. 


WRITE (6, 321 ) 

743. 

821 ' 

FORMATS 

744, 


DO 501 1=5 

745. 


DO 502 J=l,5 

746. 


WRITE (6, 67) 

747. 

502 

COiviTINUE 

743. 


WR I TE ( 6 , 63 ) 

749. 

501 

CONTINUE 


•) , X J3 (1,3), X J3 (1,4), X J3 (1,5) 


,) , Xk‘3 (1,3), XK3 (1,4), XK3 (1,5) 


•) , XL3 (1,3), XL3 ( 1 , 4 ) , XL3< 1 , 5 ) 


) , XM3 (1,3), Xi'13 (1,4), XN3 ( 1 , 5 ) 


;• ) 


* 


*'•' ^" « ^ -k ' » •’■%4' • . - .■ »» '*•* 


750. 

751. 

752. 
75c* . 

754. 

755. 

756. 

757. 


ORIGINAL PAGE IS 

S 22 FORMATt‘'®G^i OF POOR QUALITY 

DO 503 I --^5 
DO 504 J~l>5 

WRITE < 6. 67 ) G< I , J» 1 ) , G< I , J, 2) » 6 (I » J, 3 ) , G ( I , J, 4 ) , G < I , J, 5J 
504 CONTINUE 

WRITE (6, 63) 

503 CONTINUE 

WRITE (6, 65) 

WRITE (6, 823) 


760. 

S23 

FORMAT H*’) 

761. 


DO 505 1=5 

762. 


DO 506 J=l,5 

763. 


WRITE(6,67) 1 

764 . 

506 

CONTINUE 

/ 65 . 


WRITE< 6, 68) 

766. 

505 

CONTINUE 

767. 


WRITE <6, 824) 

/ 6'-' . 

824 

FORMAT ('• K') 

769. 


DO 507 1=5 

770. 


DO 508 J=l>5 

771. 


WRITE<6,67) 

772. 

508 

CONTINUE 

773. 


WRITE (6, 68) 

774. 

507 

CONTINUE 

775. 


WRITE (6, 65) 

776. 


WRITE (6, 825) 

777. 

825 

FORMAT A3-‘ 

778. 


DO 509 1=5 

7’79. 


DO 5 1 0 .-!= 1 > 5 

730. 


WRITE (6, 67) ( 

701. 

510 

CONTINUE 

76'2 . 


Write ( 6» 6S ) 

T*'-' 

509 

CONTINUE 

734. 


WRITE (6, 826) 

735. 

826 

FORMAT N3-- 

736. 


DO 511 1=5 

787. 


DO 512 J=l,5 

730. 


WRITE (6, 67) 

739. 

512 

CONTINUE 

790. 


WRITE (6, 68) 

791. 

511 

CONTINUE 

792. 

.. 

WRITE<6»65) 

793. 


WRITE (6, 827) 

794. 

827 

FORMAT<'' 03"‘ 

795. 


DO 513 1=5 

796. 


DO 514 J=l,5 

797. 


WRITE <6, 67) 1 

793 . 

514 

CONTINUE 

799. 


WRITE <6, 68) 

300 . 

513 

CONTI l^liJE 

t'0 1 . 


WR I 1 E ( 6 » 823'' ) 

fe'Ojii ■ 

C» '"T» C’ 
O.fcLO 

FORMATS' P3-' 

£i03 . 


DO 515 1=5 

yo4 . 


DO 516 J=i,5 

305 . 


WRITE (6, 67) i 

306 . 

516 

CONTINUE 

307. 


WRITE <6, 68) 

808 . 

515 

CONTII'IUE 

809 . 


WRITE <6, 65) 

810. 


WRITE <6, 829) 

811. 

829 

FORMAT OS'” 

312. 


DO 517 1=5 

3 1 3 . 


DO 518 J=i -,5 

814, 


WRITE (6, 67) 1 

815. 

518 

CONTINUE 

i C.I . 


WRITE (6, 68) 

'Cvl / . 

517 

CONTINUE 

wit'. 


WRITE (6, 830) 

819. 


FORMAT T3-- 

820 . 


DO 519 1=5 

821 . 


Du 5.i:!!Lt 'J'*'l t O 

C' ’j**"* 


WRITE (6, 67) ■ 


S20 

CONTIi'lUE 

824. 


WR I 1 E ( 6 7 65 ) 








Ci^ct 

*Ui 4 m • 

519 

COlsITINUE 

82&. 


WRITE(3,35) 

827. 


WRITE<6,S310) 

182S, 

8310 

FORMAT <•' U3') 

829 . 


no 521 1=5 

830. 


DO 522 J^l,5 

c»o i 

C<0 i. m 


WRITE (3, 37) U3(I, 

t332. 

tri'S.o 

WAW4U 

CONTINUE 

,•*, 

CtC*»Z* m 


WRITE(3,3S) 

834. 

521 

CONTINUE 

■ 


WRITE (3, 831 ) 

Ow^O • 

831 

FORMAT V3‘") 

00*7 
oo / • 


no 523 1=5 

c» *•• c* 
ooo • 


no 524 J=l,5 

c» o o 

o ■ 


WRITE (3, 37) V3(I, 

840. 

524 

CONTINUE 

84 i . 


WR I TEC 3, 38) 

8^2. 


CONTINUE 

843. 


WRITEC3,35) 

844. 


WRITE C 3, 832) 

845 . 

o o*. 

FORM AT C'^ X3--) 

843 ■ 


no 525 1=5 

847. 


no 523 J=l»5 

848 . 


WRITEC3,37) X3CI, 

849 . 

cro/. 

0.^0 

CONTINUE 

850 . 


WRITE (3, 38) 

851. 


CONTINUE 

652i . 


WRITE C 3, 833) 

858 . 

00*T* 

FORMATC-' V3'-) 

854. 


no 527 1=5 

855. 


no 528 J=i,5 

‘853. 


WRITEC3.37) Y3CI, 

857. 

528 

CONTINUE 

OC-c< 
l^tsJCl . 


'WRITE ( 3» 38) 

859 . 

527 

CONTINUE 

830 . 


WRITE C3> 35) 

831 . 


WRITE<3,834) 

832 . 

8ln!4 

FORMAT (■' Z3-') 

838 . 


no 529 1=5 

834 . 


no 530 J=l»5 

o/. e: 

..m 

WRITEC3,37) Z3CI, 

83^' . 

530 

COI'JTINUE 

o3*7 . 


WRITE (3, 38) 

O o 

W4.M.1 . 

529 

CONTINUE 

839. 


WRITE (3,835) 

870 . 


FORMAT (••• J4") 

871. 


no 531 1=5 

87j^ . 


no 532 J=l,5 

87 8 . 


WRITE(3,37)XJ4( I, 

874. 

532 

CONTINUE 

875 . 


WRITE (3, 38) 

873. 

531 

CONTINUE 

877. 


WRITEC3,35) 

C'7C' 
C' / m 


WRITE (3, 833) 

879. 

883 

FORMAT (■•■ M4"‘) 

880 . 


no 533 1=5 

C‘C' 1 
oox • 


nu 584 U™ 1 1 5 

oo 

i!..* *•..* Um. n 


WRITE (3,37) XM4(I 

c» o 

534 

CONTINUE 

m 


WRITE (3, 38) 

8S5. 

533 

CONTINUE 

C'OyC 


WRITE (3, 837) 

C«* •“! *7 
U< C* / m 

©37 

FORMAT ( •' P4 ' ) 



no 535 1=5 

889 . 


no 583 U=i , 5 

^*7^0 m 


WRITE (3, 37) P4(I, 

891 . 

533 

COixITINLiE 

892 . 


WRITE(3, 38) 

8 V8 . 

v,*O0 

CONTINUE 

894. 


WRITE (3, 35) 

895 . 


WRITE(3,038) 

893 1 


FORI'IAT ( •• 84 ) 

8V7 . 


DO 537 I =5 

S9S . 


LilJ ci88 'J= l , 5 

899 , - 

^ .. 

WRITE (3, 37;. 84(1, 


ORIGINAL PAGS IS 
OF POOR QUALITY 








900 . 

901. 

902. j 
903. . 
9.0^ . ' 
905. 

903 . 
907. 
9pS . 

909 . 

910. 

91 1 . 
9 1 ‘2 . 

913. 

914. 

915. 
913. 
917. 
91S. 
919. 
920- 
921 . 

C/ 

Sa *!»* * 

924! 
925 . 



OF POOH 


53S CONTINUE • 

WRITE(3,3S) . 

537 CONTINUE ■ 

WRITE <6, 339) 

339 FORM AT (' W4''*) ' 

DO 539 I ~5 
DO 540 J^l,5 

WRITE ( 3, 37) W4 U , J» 1 ) , W4 ( I , J, 2 ) , W4 n . J, 3) , W^ < I , J, 4 ) , W4 Cl » J, 5) 

540 CONTINUE 
WRITEC3,3S) 

539 CONTINUE 
WRITE (3, 35) 

WRITEC3,S40) 

340 FORMAT C ' B3'’ ) 

DO 541 1^5 
DO, 542 J“l»5 
DO S43 1 > 

WRITE‘(3, 37)"B3C I , J, K, 1 ) , BSC I , J, K, 2) , BSC I , J, K> 3) , B3C I , K. 4) 
i,B3CI, J,K,5) 

543 CONTINUE 

WR I TEC 3, 33) 

542 CONTINUE 

IFCI.EQ.2.QR. I.EQ.4) WRITEC3,35) 

IFh.EQ. l.OR. I.EQ.3) WRITEC3v39) 

541 CONTINUE 
WRITEC3,3S) 


923. 


WRITEC3,S41 ) . 


927, 

ffi 

FORMAT C-' C3-’) 


923. 


DO 544 1-5 • ' 


929 . 


DO 545 J--l,5 


930. 


DO 543. K- 1,5 


93 1 . 


WR I TEC 3, 37) C3CI,J,K, 

1 ) , U3 C I , U , K ■ 

C/ O 

1 

,C3C I, J,K,5) 


^33 ! 

543 

CONTINUE 


934- 


WRITEC3,3S) 


935 . 

545 

CONTINUE 


933 . 


IFCI.EQ.2.0R. I.E0..4) 

WRITE C 3, 35) 

937 . 

. 

IFCI.EQ. l.OR. I.EQ.3) 

WRITE C 6, 39) 

933. 

544 

CONTINUE 


939. 


WR I TEC 3-, 35) 


940 . 


WRITEC3,S42‘) ' . 


941 . 

342 

FORMAT C-' E3-') 


942. 

■ 

DO 547 1=5 


943. 


DO 540 J=i,5 


944- 


DO 549 K=l,5 

* 

945. 

• 

WRITE C 3, 37) E3CI,J,K, 

1.) ,E3C I ,.J,k 

943 . 

.1 

, E0 V I , U , K , 5 ) > 


947 . 

549 

CONTINUE 


94S; . 


IFC I . EQ.2.0R. J.EQ.4) 

WRIT£C3,35) 

949. 


IFCI.EQ. l.OR. I.EQ.3) 

WR I TE C 3 , 39 ) 

950 . 

540 

CONTINUE 


951 . 

547 

CONTINUE 


952. 


WRITE C 3, 35) 


953 . 


WRITE C 3, 043) 


95iU 

- - .. .043! 

FORHAT.C F3".) ~ - 


955 . 


DO 550 1=5 


953 . 


DO 551 J=i,5 


957 . 


Du 552 k=l,5 


95£; . 


WRITE C 3, 37) F3CI,,J,K, 

1 ) , F3 C I , J, K 

959. 

1 

, ,F3C I, J,K,5) 


930 . 

552 

CONTINUE 


931 . 


WRITE C 3, 33) 


932 . 

551 

CONTINUE 


y Gi* vTi ■ 


I F C J.. EQ . 2 . OR . I . EQ . 4 ; 

WRITE C 3 , 35^ 

934 . 


I F C I . EQ . 1 . OR . I . EQ . 3 ) 

WRITc. C 3, c>9 ) 

935. 

550 

CONTINUt 


933 . 


WRITE C 3, 35) 


937 . 


WRITEC3,S44) 


93S . 

S44 

FORMAT C-- H3'-) 

• 

939. 

• 

DO 553- 1=5 


970. 


DO 554 J=i,5 


97 1 . 


DO 555 K'=l,5 


972. 


WRITEC3,37) H3CI,J,K, 

X ) , He! Cl, ij , ts 

973. 

1 

.,H3CI, J,K‘,5) 


9 74 . 

555 

CulvlTINUE 







975, 


WRITE (6, 68) 

976. 

554 

CONTINUE 

977. 


IF(I.EQ.2.DR. I.EQ- 

978. 


IF<I.EQ. l.OR. I.EQ. 

979. 

553 

CONTINUE 

980 . 


WRITE(6»65) 

981. • 


WRITE(6,845) 

982. . 


FORMAT 13/) • 

983. 


no 556 1^5 

984. 


DO 557 U=l,5 

C/Cjc; 


DO 558 K=i,5 

VBc* . 


WRITE <6, 67) XI3<I, 

987. 


l,XI3n,J.K,4),XI3< 




ORIGINAf PAGE £SJ 
OF POOR QUALITV: 


55£l continue 


989. 

WRITE (6, 68) 

990 . 

557' CONTINUE 

99 i . 

• IF (I.EQ. 2. OR. I.EQ 

992. 

. IF (I.EQ. l.OR. I.EQ 

993. 

556 CONTINUE 

9,94 . 

WRITE (6, 65) 

995. 

WRITE (6, 846) 

996. 

846 FORMAT(-' R3*-) 

9-97. .. 

.. - DO 559- I.=5, , - .. 

998. 

no 560 J=l,5 

999. 

DO 561 K=l,5 

1000. 

WRITE(6.67) R3(I,^ 

1001. 

1,R3(I, J,K,5) ■ , 

1002. 

561 CONTINUE 

1003. 

WRITE (6, 68) 

10,04. 

560 CONTINUE ■ 

1005. 

IF (I.EQ. 2. QR. I.EQ 

1 006 . 

I F ( I . EQ . l.OR. I . c. W 

1007. 

559* CONTINUE' ’ 

1Q08. 

WRITE (6t 65) 

1 009 . 

WRITE (6, 84 7) 

1010. 

847- FORMAT (•' S3-') 

1011 . 

* DO 562 1=5 

1012. 

. DO 563 J=l,5 

1013. 

no 564 K=l,5 

1014. 

' WRITE (6. 67) S3(I,^ 

1015. 

'1 i3til( 1 1 Ut(w> 5) 

1016. 

564. CONTINUE 

1017. 

WRITE (6, 68) 

1 U 1 il! . 

563 CONTINUE 

1019. 

IF( I.EQ. 2. OR. I.EQ 

1020. 

IFd.EQ. l.OR. I.EQ 

1021.. •. - - 

562 CONTINUE - - 

1022. 

WRITE (6, 65) 

1023. 

WRITE(67S48) 

1024, 

S4S FORMAT( ' A4-' ) 

1025. 

DO 565 1=5 

1026, 

DO 566 <J= 1 j 5 

1027. 

DO 567 K=l75 

1 028 . 

WRITE (6> 67) A4(l7. 

1029. 

l7A4(I, J»K,5) 

1030. 

567 CONTINUE 

1 1 n 

• ■ WRITE ('6V6S’) 

1 U32 . 

566 CONTINUE 

1 033 . 

, I F ( I . EQ . 2 . OR . I . EQ 

1034, 

. IFd.EQ. l.OR. I.EQ 

1 035 . 

565- CONTINUE 

1036. 

•WRITE(6t65) 

1037, 

. . WRITE (6, 849) 

1038. 

849 FORMAT (-^ B4-') 

1039. 

* DO 568 1=5 

1040. 

. no 569 J-=l,5 

1041. 

DO 570 K=l75 

1042. 

WRITE(6767) B4(I 

1043. 

l,B4d. J.KjS) 

1 U44 . 

570 CONTINUE 

lCk45. - 

WRITE ( 67 68 ) 

1046. 

569 CONTINUE 

1047. 

IFd . EQ. 2. OR. I . EQ 

1048. 

IFd.EQ. l.OR. I.EQ 

1049, 

568 CONTINUE 


• **flL 




1 1050. 

' 105.1 . 

i 10S2. 

1053. 

1054. 
< 1 055 . 
* 1056. 
. 1057. 

■ iOSL=J. 

1059, 

1060. 
1061. 
1062. 

1063. 

1064. 

1065. 
‘ lU66. 
: 1067. 
I iOtoW. 
I 1069. 

1070. 
! 1071. 

1072. 

1073. 

1074. 

1075. 

1076. 

1077. 
1073. 
1079. 

1 dso . 

1081 


■ • V . i-* ■■ 


ORStiKs.l. i. 

OF POOR QUALITV, 


1095. 

1096. 

1097. 
1 093 . 

1099. 

1 1 00 . 
1101 . 
1 102. 
1 103. 
i 1 04 . 

1105. 

1 106. 
1107. 
1103. 

1109. 

1110 . 
1111. 
1112 . 

1113. 

1114. 
1U5. 


*WRITE(6,65) 

WRITE <6, 350) 

850. FORMAK*' C4-') 

DO 571 1-5 
DO 572 J-J 75 

' WRITe‘<67'67)'’'c4 ( I , J, K» i3 » C4< 1 7 Ji K, 2) , C4 ( 1 7 J 7 is7 3) 7 04 i 1 7 J 7 K 7 4) 

'1 704( 1 7 J 7 K, 5) . 

57S!- CONTINUE 

WRITE(676S) 

□72 CONTINUE 

IF(I.EQ.2.0R. I.EQ.4) WRITE(6,65) 

IFCI.EQ. l.OR. I.EQ.3) WRITE(6.69) 

571 CONTINUE 

. . WRITE(6,65) - . > „ . , 

WRITE (6» 351) 

351 FORMAT (•' D4 ' ) 

DO 574 1-5 
DO 575 J-JI 75 
DO 576 K-I 75 

* WR I TE ( 6 . 67 ) D4 ( 1 7 J , IM ) , D4 ( 1 7 <J 7 ^ 72)7 D4 ( I , J 7 K 7 3 ) 7 D4 ( 1 7 .J , K >4)7 
1 D4 ( 1 7 ul 7 K 7 5 ) 

576 CONTINUE 

WRITE (6, 63) 

575 CONTINUE 

IF(I.EQ.2.0R. I.EQ.4) WRITE(6765) 

IFd.EQ. l.OR. I.EQ.3) WRITE(6,69) 

574 CONTINUE 

WRITE(6,65) 

WRITE ( 67 852) 

.352 FORMAT (•' E4 ” ) 

DO 577 1-5 


" 1082. 

DO 573 J=ii5 

1 083 . 

DO 579 K-liS 

. 1034. 

WRITE (6, 67) E4d,^ 

1 loss. 

1,E4(I7 J,K,5) 


579 CONTINUE 

! 1087, 

WRITE ( 6 , 68 ) 

ii 1033. 

578 CONTINUE, 

'j 1089. 

i F ( I , EQ . 2 > UR . I . Eu 

\ 1090. 

I F ( I . EQ . 1 . OR . I . EiJ^ 

1091. 

577 CONTINUE 

! 1092. 

WRITE ( 67 65) 

*■» 1 0V*.7* ■ 

WRITE (6, 053) 

1094- 

■353 FORMAT (•■ F4-') 


DO 530 1-5 
DO 531 U^^l'/S 

WR I TEt 6 ,67 ) "'f-I ( I , J 7 K , 1 ) , F4 < I , J 7 K 7 2 ) , ( I . U , K 7 3 ) , F4 ( 1 7 .J , K 7 4 ) 
i,F4( I, J,K,5) 

532 CONTINUE. „ . . ... 

WRITE (6, 68) 

531 CONTINUE 

IFd.EQ. 2. OR. I.EQ.4) WRITE<6765) 

I F ( I . Ei~4 • 1 • OR . I • EQ . 3 ) WR I TE ( 6 1 6y ) 

530 CONTINUE 

WRITE ( 67 65) 

WRITE ( 67 854) 

354 FORMAT ('• 04 ') 

DO 533 1-5 
DO 534 5=1,5 
EiO Fii-i 5 K’— J 5 

WR I TE (67 <li7 ) 04 ( 1 7 U 7 7 1 ) 7 U4 ( 1 7 i_l 7 K 7 ) 7 b4 \ .1 7 7 K , .c* ) 7 0^ ( 1 7 >J 7 Is s 4 / 
l,G4d, J 7 K 75 ) 

535 CONTINUE 

WRITE ( 67 60 > 


1116. 

534 

CONTINUE 


1117. 


IFd.EQ. 2. OR. I.EQ.4) 

WRITE ( 

11.13. 


IFd.EQ. 1, OR . I . Eq • c< ) 

WRITE( 

1119. 


CONTINUE 


1 120 . 
1121 . 


WRITE ( 67 65) 
WRITE < 6 , 355) 

• 

1 L 22 . 

1123. 

1124. 

1^1 

FORMAT ( •• 14 •) 
DO 536 1=5 
DO 537 J-1,5 



5.> ♦ 




IM^iP ifi iiliiin fin 


■t. " • 

jW<' 


4 . 


•VIe “♦ 


i.> M r*iii rfT i ~ i V i fi «. I. ri »'y 




1 « 

II 

» 


U26, 

1127. 

1128. 
1129. 
1180. 
1131. 
11S2. 
1133. 

I 1134. 
' 1135. 
• 1133. 
! 1137. 

i liss. 

■ 1139. 
1140. 

‘ 1141. 

1142. 

1143. 

■ 1144. 

1145. 

1146. 

1147. 
; 1148. 
' 1149. 

, 1150. 

1151. 

1152. 

1153. 

1154. 

1155. 

1156. 

1157. 

1158. 

1159. 

1160. 


, rp 

■'I . ■. 


•t, ^ ■ 

1 1 W6 . 
1187. 
1 1 . 

1189. 

1190. 

1191. 

1192. 

1193. 

1194. 

1195. 

1196. 

1197. 

1198. 

1199. 


DO SS"”' 1 5 

WRITeT 6, 67T XI4( I , J, K» 1) , XI4 ( I , J, k% 2) t XI4 ( I , J, K>, 3) 

^,1»XI4<I, J,K,4),XI4<I, J,K,5) 

ssscowTiNUE, ^ oRiaiimK 

587 CONTItvIUE^'"* OF POOR QUALITY 

IF(I.EQ.2.0R. I.EQ.4) WRITE (6» 65) 

WRITE(6»69) 

586 CONTINUE 

WRITE(6,65) 

WRITE(6,856) .. • - 

S56 FORMAT (•' L40 
no 589 I«5 
no 590 J«l,5 
DO 591 K^l?5 

WR I TE < 6 , 67 ) ' XL4‘( I , J , K , 1 ) , XL4 <1 > J » K » 2 ) . XL4 (I » U , K' , 3 ) , XL4 ( I , J , K% 4 ) 
i.XL4(I. J,K,5) 

591 CONTINUE' • » ^ . 

WRITE <6» 68) 

590 CONTINUE 

IF(I.EQ.2.0R. I.EQ.4) WRITE(6,65) 

IFCI.EQ. l.OR. I.EQ.3) WRITE<6»69) 

589 CONTINUE 

WRITE <6, 65) 

WRITE (6, 857) 

857 FORMAT <•' Q4'*) 
no 592 I~5 
DO 593 J«i,5 
DO 594 K«1.5 

WRITE < c. , 67 ) Q4 ( I , J , K , i ) I G4 < 1 7 J , K, 2 ) , Q4 ( I , J , K% 3 ) , Q4 <1 ; J , K, 4 ) 
1,04(17 J>K> 5) 

594 CONTINUE 

WRITE (6, 68) 

593 CONTINUE 

. IFa.Ea.2.0R. I.EQ.4) WRITE<6,65) 

IFd.EQ. l.QR. I.EQ.3) WRITE(6,69) 


1162. 


WRITE(6,65) 

1 1 6s • 


WRITE (6, 858) 

1164. 

858 

FORMAT (" R4-') 

1165. 

» 

DO 595 1=5 

1 1 ^<o ■ 

• 

DO 596 J=l,5 

1167. 

' ■ 

DO 597 K=l,5 

1168. 


WRITE (6, 67) R 

1169. 

• 

1,R4(I, J,K,5) 

1170. 

. 597 

CONTINUE 

1171, 


WRITE (6, 68) 

1172. 

596 

CONTINUE 

1173. 


IFd.EQ. 2. OR. 

1174. 


IFd.EQd.OR. 

1175. 

595 

CONTINUE 

1176. 


WRITE(6,65) 

1177. 


WRITE (6, 859) 

1 1 7w ■ 

859 

FORMAT (' V4') 

1179. 


no 598 1=5 

1 150. 


DO 599 J=l,5 

1181 . 


DO 600 K=1,S 

1182. 


WRITE (6, 67) V 

1 1 • 


l,U4d, J,K,5) 

1134. 

600 

CONTINUE 


WRTTE<6,63) 

599 CONTINUE 

IF(I.EQ.2.0R. I.EQ. 4) WR.tTE<6,65) 

IF(I . EQ. 1 . OR. I . EG. 3) WRITE<6, 69) 

598 CONTINUE ** . 

499 STOP 
Ei\in 

FUNCTION FUNF.(X,N) 

REAL^^S X, XX, ALPHA, BETA, FLINF, DCOSH, DCOS, DSINH, DSIN 
D I MENS I ON ALPHA ( 8 ) , BETA ( 8 ) 

COI^iMON ALPHA, BETA 
XX-^X'W’BFTA ( N ) ' 

FIJNF=^nCOSH < X X ) -DCDS (XX) - ALPHA ( N ) * ( DS INH (XX) -D5 1 ivl ( X X ) ) 

RETURN 

END 




- 1 *. «' •** 





1200. 
1201 . 
1202. 

1203. 

1204. 

1205. 

1206. 
1207. 
120S. 

1209. 

1210. 
1211. 
1212. 
1213. 
l2 1 4 • 

1215. 

1216. 
1217. 
1213. 

1219. 

1220. 
1221. 
X *ti ah* ^ a 

1224. 

1225. 
12 




C( I 


1229. 

1230. 

1231. 

•Ti 

^ a 

1 233 . 

1234. 

1235. 

1236. 
1 257 . 
123Si. 

1 239 . 

1240. 

1241 . 

1242. 

1243. 

1244. 

1245. 

1246. 

1247. 
1 243 . 

1249. 

1250. 

1251 . 

X a 

1253. 

1254. 

1255. 

1256. 

1257. 

)1» tC« w* •.«» a 

1259. 

1260. 
1261 . 
1262. 

1263. 

1264. 

1265. 

1266. 
1267. 

1 26'c! . 

1269. 

1270. 

1271. 

1272. 

1273. 

1274. 


-i -jdfS 'jiaw ■» 

ORIGINAL PASS Id 

FUNCTION FUNFP(X,N) QUALITY 

REALMS FUNFP » X » X X , ALPHA , BETA » DCOSH , DCOS , DS I NH » OSIN 
D I I-IENSI ON. ALPHA ( 3-)., BETA < S ) 

COMMON ALPHA T BETA 
XX—X'ifBETA ( N ) 

FUNFP=BETA { N ) < DST NH < X X ) +DS I N < X X ) -ALPHA ( N ) 4^ ( DCOSH < X X ) -DCOS < X X ) ) ) 
RETURN " ‘ . 

END 

FUNCTION FUNFPF“(X,N) 

RE AL-^S FUNFPP , X., X X , ALPHA , BETA » DCOSH , DCOS , DS I NH , D3 1 N 
DIMENSION ALPHA<3) ,BETA<3) 

COMMON ALPHAtBETA 
XXsX’tfrBETAfN) 

FUNFPP« < BETA < N ) ^^2 ) -fK DCOSH < X X ) +DCO.S (XX) - ALPHA < i4 ) ^ ( DS I NH C X X > 
i+DSIN<XX) ) ) 

RETURN 

END 

FUNCT I ON FUNF3P ( X , N ) 

RE AL-»S FLINF3P . X » X X , ALPH A , BET A , DCOSH , DCOS , DS I NH . DS I N 
DIMENSION ALPHA (3) .BETA (S) 

COMMON ALPHA. BETA 
XX~X'ifBETA IN) 

FUNF3P - ( BETA ( N ) 4^#3 ) # ( DS I NH I X X ) -DS I N I X X ) - ALPHA ( N Hr < DCOSH ( X X ) 
1+DC0S(XX) ) ) 

RETURN 

END 

FUNCTION FUNGIX.N) 

REALMS FUNG. X, DSIN. XA 

XA« ( 2*N- 1 ) <rX-}r 1 . S70796327D0 

FUNG=DSIN( XA)^1 . 414213562D0 

RETURN- 

END 

FUNCTION'FUNGPXX^N) • * • 

REALMS FUNuP ? X . R . DCOS . XA 

A« ( 2^N-1 ) . 570796327D0 

FUNCP«A*DCOS < A*X ) . 41421356200 

RETURN • • ■ 

END 

FUNCT I ON FLINGPP ( X , N ) 

REALMS FLINGPP , X . X A , FUNG 
X A- ( 1 2irN- 1 ) 1 . S70796327D0 ) -,r^r2 
FLINGPP--X A*FUNG ( X . N ) 

RETURN 

END 

SUBRDLIT I NE F 1 3 ( Y , X , N , DY , I , J , K , L ) 

REAL^f 8 X . Y , D Y . FUNFP 
DIMENSION Y(2),DY(2) 

DY (1 ) - ( X’i+4r2- 1 ) if FUNFP ( X . I) if FUNFP ( X , J ) '>rFUi4FP ( X , K ) ^f FUNFP ( X , L) 

RETURN 

END 

. SllBRGUT I WE p-CiT 1 ( Y , . X , N . D Y , I , J , k' , L ) 

REALif 3 X , Y . D Y , X X , X X 1 . X X2 . X X 3 » FUl'IF , FLIInFP , FUNFPP , FUi>jFSF , FUNG ■. FUNGP 
DIMENSION Y(iO),DYnO) 

DY (1 ) :=Xif FUNG < X.. I) if FUNG ( X » J ) 


j(XrXifif2. 


:X 1 =^XifFUNF < XM ) %FLINF ( X , J ) 

X X2-FUNFP ( X . I) if FUNFP I X , J ) 

X X3=^FUNGP < X , I ) -^FUNGP ( X , J ) 

DY(2)^(l-XX)ifXX3/2 

DY(4)~XX1 

Dy ( 5 ) — — XX’"^'' « * 

DY < 6 ) =FUNFPF ( X , I > if FUN'FPP ( X v J ) 

DY(7)-a-XX)ifXX2 

DY<3)--=-<l-XX)ifDY(7) 

DY(S)--XX;3 

DY(9)~(XX-5)ifDY(7) 

DY(7)-»DY<7)/2 

DY( J.0)--=(l-XXV3)ifXXl 

RETURN 

END 

SUBROUT I NE FCT2 ( Y , X , N , D Y , I , J , k , L ) 

REALif S X , Y , DY . X X 1 . X X3 , X X4 , X X5 , FUNF , FUNFP , FUNFFF , FUI'jFSP . FUNG . FUNGP 
D I MENS I Oisl Y < 10). D Y (10) 

X X 1 --^FLINFF ( X , I > .^FUi'lFP ( X . J ) 

XX3-FUNF ( X , I ) irFUNF ( X , J ) 


/ . 


* *,*•*- ^ 0 


.. .*w0mm«i.i0i ■— 3 


127S. 

127/S. 

1277. 

1278. 

1279. 

1280. 
1281. 
1282. 

1283. 

1 284 . 
12SO. 
1286. 
1287. 

1 28b' a 
X Jio y 0 

1290. 

1291. 

1292. 

1293. 

1294. 
12'?S. 
1296, 
12'97, 

1298. 

1299. 

1300. 

1301. 

1302. 

1303. 

1304. 

1305. 
U06. 
ic 't7. 
1 30o> • 

1309. 

1310. 

1311. 

1312. 

1 01 O 
i «•» j. • 

1314. 

1315. 

1316. 

1317. 

1318. 

1319. 

1320. 

1321 . 

I 

1 ■ 

1323. 

1324. 

1325. 

1326. 
1 3j::I / • 
1 ooo 

iojL y 0 
1330, 
i. i M 

J. • 

1 *7**r c* 

X C**mf*Z* m 

i b‘b4 • 
1335. 

i **j -"j * 

o • 

1 3b' / a 

1 c*bb> . 
1339. 

1 340 a 

1341. 
1342. 
i 5*43 . 
1344. 
1345. 
1346. 
1347. 
1348. 
1349. 
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XX4i^FUNC-.T)r,K) > 

XX5«FUNFP(X,K‘) 

DY(i)«sX4fX4^XX5tfY<2) 

DY{2)«XX1 
DY ( 3 ) «- X X 1 ttFUWFSP ( X » K ) 

DY(5)wXX34fXX4 

DY(4)«X4fDY<5) 

DY(6)»X4tXX5i<-Y(2) 

DY(9)*XX34rXX5 
DY(7)»X-ifDY(9) • 

DY(S)«XX34»FUNF(X,K) 

DY ( 1 0 ) -X X 44^FUNFPP < X , I) frFUNFPP ( X » J ) 

RETURN 

END 

SUBROUTINE FCT3< Y, X» N, DY, I , Jt N, L) , . 

REAL-s^a X , Y, DY, XXi , XX2, XX3, FUNF, FUNFP, FUNrPP, FUNF3P, FUNS, FUNGP 
DIMENSION Y<5),DYC5) 

• XX 1*FUNFP < X , I) •JfFUNFP ( X , J ) 

- *.XX2-FUNFP ( X^ K4 . - - ^ * ... 

XX3=FUNG(X,L) 

DY ( 1) « X-» X X X 24^ X X 34^Y ( 2 > 

DY(2)«XX1 

DY<3)^X*XX2*FUNF(X,L)#Y(2) 

niY ( 4 ) --X X 1 ( XX24^FUNF3P < X , U +FUNFPP ( X , N ) vFUNFPP ( X , L) ) 

DY < 5 ) =X4fFUNF ( X , 1 ) 4^FUNF ( X , J ) 4tX X24^ X X3 

RETURN 

END 

SUBROUTINE FCT4 ( Y, X , N, DY, I , J, N, L) . 

REAL4fS X , Y, Dy, XX 1 , XX2, FUNF, FUNFP, FUNFPP, FUNF3P, FUNO, FUNGP 
DIMENSION Y(6).DY<6) 

XXl=X4fFUNF(X, I) 

XX2--FUNFP < X , J ) -^FUNFP < X , K ) 

DY(3)~XX1#XX2 

DYCl)~X4tDY(3) 

DY ( 4 ) - X X 1 4^ FUNG < X , J ) -JiFUNG < X , N ) 

DY<2)=:X41-DY(4) 

DY(5)=XX1*Y<6) 

DY(6)=XX2 

RETURN 

END 

SUBROUT I NE FCT5 < Y , X , I\! , DY , I , J , K , L) 

REAL4^S X , Y, DY, FUNF, FUNFP, FUNG 
DIMENSION Y<3),DY(3) 

DY ( 2 ) -FUNFP < X , J ) 4rFUNFP ( X , K ) 

DY ( 3 ) -X*FUNF ( X , 1 ) 4fFUNG ( X , L) 

DYCl )-Y(2)-^DY<3) 

DY ( 3 ) -X 4rDY-( 3 ) 4^DY < 2 ) 

RETURN 

ElsID 

SUBROUT I NE FCT6 ( Y , X , N , DY , I , J , K , L) 

REAL4fS X , Y , DY, FUNF , FUNFP , FUNFPP , FUhJFSP , FUI\IG , FUNGP 
1 , XX, XXI , XX2, XX3, XX4, XX5, XX6 
DIMENSION Y(9),DY(9) 

XX=FUN6 C X , K ) 4rFUNG < X , L) 

XX1-FUNFP<X, I) 

XX2-FUNFP(X, J) 

XXS--=FL1NFPP(X, n 
XX4-FUNFPP(X, J) 

XXS^FUNFPrX.K) 

XX6^-FUNFP<X,U 

DY ( 1) -FUNF < X , I) 4^FUNF ( X , J ) 

DY(2)-XX34frXX4 

DYC6)-XX5*XX6 

DY(9)-'XX14cXX2 

DY(3)-DY<2)4fDY(6) 

• ■DY(2)«DY(2)4^XX* • . - 

DY(S)-Y(9)4tY(6) 

Dy(5)-DYa )*Y(6) 

DY(4)-X-»DYU ) • 

DY( 1)=DY(4)*XX . 

DY(4)-=DY(4)4frDY(6) 

DY ( 7 ) - < X X24^X X3+X X 1 4f X X 4 1 4r ( XX 64^FUNFF P ( X , K ) +X X5*FU1'1FPP ( X , L) ) 

RETURN 

END 

SUBROUT I NE FCT7 ^ Y , X , N , DY , I , J , K , U 








1350. 

1351. 

1352. 

I »<», 

JL • 

1354. 

1355. 

1356. 

1357. 
135S. 
1359. 

134.0, 

1 X , 
13&2. 
1 c<d> 3 ' * 

1334. 
1 1£.35 . 
1 Cl 3 3* . 
1337. 
1 ci33!. 
13<39. 

1370. 

1371. 

ci / c.' . 

1373. 

1374. 

1375. 
1373. 
1377. 
137S. 
1379. 

111 ?* 
J Cl Cl J. • 

1 

Jl « 

7 

X Ou'O « 

13S4. 

1335. 

1 00 /. 

X Cl Cl Cl » 

1337 . 
1 ci<3'c! . 

1339. 

1390. 

1391 . 

1392. 
139:3. 

1394. 

1395. 

1393. 


}®: 

14,22. 

1423. 

1424. 


OR G NAL PAGE IB 

REALMS X » V , D Y . X X , FUNF , FUNG , FUI-JFP , FUNF3P onOR QUALITY 

DIMENSION V(4),DY(4) OF POOR QUAMIT 

XX«FUNF<X. J) 

DY a ) ~X4^ X^fFLlNF ( X . I ) '»FUWG ( X . J ) 4FUNG (‘A^K) ^fFUNG ( X% L) 

DY ( 2 ) «-FUNFP ( X , J ) i<FLINF5P ( XM ) <<FUNFP? X , K‘ ) -kFUNFF ( X , L) /2 
DY ( 3 ) «FUNF < X , K ) *FUNF < X , U 
DY(4)=XX#FUNFP(X, D^DYCS) 

D Y < 3 ) f.X X#DY { 3 ) .■ifFUNG ( X , I ) 

RETURN 

END 

SUBROUTINE- FGTS(Y»X,N,DY, I, J,K-U . „ . 

REALMS X» Y» DYi XX, XXI , XX2, XX3, XX4, FUNG, FUNF, FUNrP, FUNFPP, FUNF3P 
D I MENS ION Y ( 5) , DY ( 5 ) 

XX-X^#2 

XXlsFUNFP(X, J) . - . . . 

XX2«FUNFP(X, I) 

XX3-'tFUNF(X, I) 

XX4=FUNFPP(X, J) 

DY(1 )«X^^XX1*FUNG(X, I) 

DY(2)«3#XX2-e^ C \ 1“XX)^?FUNF3P( X, J) -2^^X^ifXX4 ) /2-XXJ 4XX2 
DY(3)-FUNG<X, J) 

1;iY(4)«XX^H1-XX/3)*XX3<^DY<3) 

DY<3)«-XX2*DYC3) 

DY(S)«X<»XX3^fXX4 

RETURN 

END 

SUBRDUT I NE FGT9 < Y , X , N , DY , I , J , K , U 

REALMS X , Y , D Y , FUigP , FUNFP , FUNFPP , FUNG , FUIm'GP 

DIMENSION Y(3),DY<3) 

DY(3)=FUNF(X, I) 

DY ( 4 ) wX-:jDY ( 3 > ^^FUNG ( X , i< ) 

DY < 2 ) Y ( 4 ) ^JFUNFP ( X , J ) 

DY< 1 -FUNFP(X,.K) 

DY(3)«FUNFPP(X, JO 
DY(3)«nY(3)fDYC3) 

DY(5)«DY<3)#FUNF(X,K) 

DY(3)~X'*»DY{3)#DVa) 

DY(3)=DY<3)-J^DY(4) 

DY ( I ) --D Y < 1) FUNpPP ( X , I ) ->^FUNGP < X , J ) 

RETURN 

EI^JD 

SUBROUT I NE FCT 1 D ( Y , X , N , D Y , I , J , K , L> 

REALMS X , Y , DY',.X X , X X 1 , X X2 , FUNF , FUNFP , FUNG 
DIMENSION Y<7).DY(7) 

XX=X*^2 
XX;l-FUNF<X, I) 


1397, 

DY( 1 )«XX1 

i 

1393. 

DY(2)=XNtXXl 

t 

1 

1399. 

DY(3)^XX^^XX1 


1400. 

1401 . 

1402. 

1 4 u c> . 

DY<4)ssXX2 

DY(5)«X^XX2 

D Y f 3 5 - X<^ C 3- X X ) *X X 1 /3 

DY { 7 ) - < X^r^S--5*X#-?r3+4 ) ^^FiJNFP ( X , 

D/15 1 

1404. 

1405. 
1403. 

RETURN 

END 

SIJBRDUT I NE FCT 1 1 ( Y , X , N , DY , I , J •, 
REALMS X, Y, DV, XXI , XX2, XX3, XX4, 
DIMENSION Y(3>,DY(3) 

i 

N,L) ’ 

1407. 
1 40S . 

FUNF , FU!'-iFF‘, FUi4FPF , FUNG 

1409. 

XX1~FUNF(X, I ) 


1410. 

XX2~XXl^.rFUNG<X, J) 


1411. 

XX3~XXHrFLIWFP(X, J) 

i 

1412. 

XX'-f=FUNF(X, J) 

I 

t 

1413. 

DY< 1 >-X^^XX2 

i 

1414. 

1415. 

DY(2)-X-JfDYa ) 

DY<3)=X*XX3 

DY(4)-XX3 


1413. 


1417. 

DY<5)-XX2 

1 

14.1 S'. 

DY ( 3 ) - X X 1 ^^FLINFPP ( X > J ) 


1419. 

RETURN 



END 


ROUTINE DASCRLI^ A, B, H, N, F, XO, lER, WK, K', L, M, NN, NCALL, E5, NERnOR) 


DIMENSION 

INTEGER 


WK<i),xon > 
sw 




f 
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i 42S . 
14ti4>. 
1427. 
142S. 
1429. 

1 4<‘0 » 
143io 

1432. 

1433. 

1434. 

1435. 

1436. 

1437. 
1433. 

1439. 

1440. 

1441. 

1442. 

1443. 

1444. 

1445. 

1446. 

1447. 

l44s. 

1449. 

1450. 

1451. 

1452. 

1453. 

1454. 

1455. 

1456. 

1457. 
1453. 
1459. 
1 4o0 . 

1461. 

1462. 

1463. 

1464. 

1465. 

1466. 

1467. 
1463. 

1469. 

1470. 

1471. 

1472. 

1473. 

1474. 

1475. 

1476. 

1477. 
1473. 

1479, 

1 480 . 

1431. 

1432 . 
1 4*— 'C‘ . 
1 ‘HSi4. 
1435 ; 
1436 . 
1 4W / . 

1433. 
1439. 

1490. 

1491. 

1492. 

1493. 

1494. 

1495. 

1496. 

1497. 
1 4 V w . 
i 499 . 


'““’LOCrrCAL""”" ■ BEtBH,BR>BX ' -*'■ 

C 

6^*4 E5 SHOULD BE SET TO .5 TIMES THE DESIRED RELATIVE 
PRECISION OF THE SOLUT I UN . 

1^' 

• REAL'SVS DSIGNjDAfiS ,imi«ki v’ v.-. u-. =• nr- 

DOUBLE PRECISION A» B, H, XO, WK» HMIN, Xj XS» l.-!» Hs, K, E, E5 j 
Ji. OB? . nor? . TUOPF . Fni (ft . (-(ft 


oRiGiim PAGE m 
Of POOR QUALITY. 


■it 


DATA 


5, ZERO. 

P5, OPS, THREE, FOUR, HL . . 

ZERO r P5 , OPS I THREE , FOUR/O. DO , . 5Du , 1 . 5uO , 
3. DO, 4. DO/ 


c 


c 


l; 


C 

C 


lER = 0 

IF<A.EQ.B) GO TO 100 
IBl=N-s*N 
IB2-IB1+N 

HM I N-D ABS ( H ) / NERROR 
BH-.TRLIE. 

BR-.TF<UE. 

BX-.TRLlo. CHECK FOR THE PROPER SIGN OF H 

• H-DSIGIvKDABS(H) ,B-A) 

X-A 

5 XS=X 

DO 10 J=1,N 

IJKO=N+J 

WKaJKO)=XOJ J) ....... - .. - . - 

10 CONTINUE 
15 HS=H 
Q=:X+H--B 
Rpzu *TRL1E 

TfTInOT. HH.GT, zero. and. Q.GE. ZERO) .or. <H.LT. zero, and. Q.LE. ZERO) ) ) 

1 GO TO 20 

H=B-'X 
BR-. FALSE. 

20 hs^^h/thhee .calculate soln. at x+h. 

do 90 SW-1,5 

CALL, F < XO , X , N , WK , K , L , M , NN ) 

DO 70 1=1, N 

Q=HS>‘SfWK ^ I ) 

IJK0=N-+-I 
IJK1=IB1+I 
I JK2=IB2'+I 

' ' GO TO ( 25 , 30 , 35, 40 , 45 ) , SW 

, — niCL - • . . R=Q* 

WK(IJK1)=Q 
GO TO 50 

30 R=P5-sf < Q+WK ( I JK 1 ) ) 

GO TO 50 

35 R=THREE-s^O 

WK(IJK2)=R 

R= . 375D04.< R-f WK ( I JKl ) ) . 

GO TO 50 . 

40 R=WK ( I JK 1 ) ■s*FOUR*Q 

WK(;CJK1)=R 
R=0P5^^ ( R-WK < I-JK2 ) ) 

GO T 0 50 

45 R=P5*(Q+WKnJKi ) ) ^ , . .. 

■ Q=DABS ( R+R " OPS* < Q-^WK ( I JK2 ) ) ) 

SO XOa )--=WK^MJK0)-^R 

IF(SW.NE.S) GO TO 70 

AUTOMATIC STEP CHANGE 

E=DABS < XO (I ) ) 

2J5J 

I F ( E . GE . 1 . n-7 ) R=E*E5 ^ ^ ___ 

Tfoi At-iJUb t MtNT uF iht. oTEr' 

I F ( Q . LT . R . OR . ( . I‘10T , B X ) ) GO TO 65 
BR=- TRUE. 

BH=. FALSE. 

H=P5*H , _ 

IF (DABS < H ) . GE. HMIi'l ) LiU lU :.;i5_ 

THE S t Ef I b nrtL.VftD r,tbl ur^.c a Xu , 

. , . _ AND GO BACK FOR REF'EATn.D lilTEGRATION 


iXP 


- 


: . ^ .. WITH THIS NEW STEF 

H«DSISN<1 .DO,H)<^HMIN 
B'A^m FALSE. 

SS DO SO J«1,N 

IJNO»N+J 

, , < I JKo ) omMt^ i nas o 

Sv. lONTIInIUE qP QUAin V. 

. 00 TO ID 

OS I F ( Q r GE . 0 . 031 20 DCh^R ) BE- . FALSE . 

70 CONTINUE 

GO TO V 70 } 90 > SO , S5 * 90 ) , SW 
70 X«X+H3 

• w-** oO*T 0*^ 5^0^. *. .L 

SO X«X+P5-«-H3 

GO TO 90 

* SO X«X+PO'«H 

. 90 CONTINUE 

TEST A POSSIBLE DOUBLING OF THE STEP 
I F(. NOT. BE. AND’. BH.AND.br ) ) GO TO 95 * 

H-H+H 

BX«.TRUE. 

. 95 BH-.TRUE. 

IF(BR) GO TO 5 
H-HS 

IFCBX .OR. BE) GO TO 9005 
lER « 33 
GO TO 9000 
100 DO iOS I-i,N 
XOa)«ZERO 
105 CONTINUE 
GO TO 9005 
<^/000 CONTINUE 

CALL UERTST<IER,6HDASCRUiNCALL,K,LH'HNN) 

9005 RETURN 
END 

SUBROUT I NE UERTST \ I ER , NAME , NCALL , N , L , M , NN ) 


DIMENSION 

lNTEGER-t^2 

INTEGER 

EQUIVALENCE 


ITYP<5,4) , IBIT(4) 

NAME (3) 

WARN-, WARF, TERM, PR I NTR 


DATA 


ITYP - 


IBIT 
PR I NTR 


DATA PR I NTR / 6/ 

IER2-IER 

IF (IER2 .GE. WARN). GO TO 5 

IER:l^4 
GO TO 20 

5 IF (IER2 .LT. TERM) GO TO 10 

IER1«3 
GO TO 20 

10 IF (IER2 .LT. WARF) GO TO 15 

, IERi-2 
GO TO 20 

15 IERl-1 


CIBIT<1 ) ,WARM), (IBIT(2) ,WARF) , < 
/2WARN-\ 'IMG S •’ ■*, " 

'WARN-', 'ING\ % 'WITH', ‘ FIX', •' ) 

-TERM 'INAL 

'NON-S 'DEFI -NED ' 

/ C'4 , <r<4 , 1 2S , U / 

/ 6/ 


2), WARF), aBIT(3)»TERM) 


NON~DEFINED 


TERMINAL 


WARNING(WITH FIX) 


WARNING 
EXTRACT 'N' 


20 I ER2- 1 ER2- 1 B I T M ER 1 ) 

PRINT ERROR I'lESSAGE 

WRITE <PRTNTR,25) (ITYP;* I , lERl ) , I-l , S) , NAME, IER2, lER 
1,NCALL,K,L,M,NN 

25 FORl'IATC ■* -a-kif I I'-t S L\ UERTST) ’’',5f'r4, 4X,3A2, 4X, 12, 

-ft- ( I ER “ , I o’ , ) , 4 a ) NuALL— ,1*:', . , 4 a2, ) i 

RETURN 
END 


s’ 


ORIGINAL PAWT^ 
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I. 


4. 

w* ■ 
, 6 . 

7. 

5. 
9. 

.10. 

11 . 

1C.' 
XCl N 

14. 

15. 

16. 
17. 
IS. 

1 9 . 

20 . 
21 . 
22 . 

23. 

24. 

jl.O m 

07 
jl , / • 

• 

29. 
GO. 
31 . 

00 

w>.«^ • 
Ow< ■ 

.34 . 
35. 
36i. 


42. 

43. 


C 

U 

c 

c 

c 

c 

c 

c 

c 

c 

c 

F' 

c 

0 

0, 

C. 

u 

c- 

c. 

c 


It * Ilf .ff 4f 4^ ■W # if ^ V .»f .jf w •If Tf .}<■ w ^ 4r 

4f -<f 

4f #C0EFFP0L ' 4f 

■jf , I -if 

■Jf-Jf-Jfif'jf-if'lf'if'lf-if-if'Jf'lf-Jf'lf'Jf’S'lf'Jfif-Jf-Jfif-if'lfif-Jf'Jf'lf'ifif-Jfif-lfif-k'^-Sfifif-if-Jf'Jf 

CALCULATION OF THE OALERKIN COEFFICIENTS FOR THE FLAP-LAG-TORSIONAL 
NOTION OF A ROTOR BLADE IN HOVER USING SHIFTED, AND NORMALIZED, 
LEGENDRE POLYNOMIALS (COMPLETE SET). 

FOR ACCURACY, ALL OPERATIONS WITH POLYNOMIALS, INCLUDING 
INTEGRATION, ARE DONE ALGEBRAICALLY USING THE SSP SUBROUTINES 
PMPY,PDER,PINT AND PADDM. 

■‘?SFiiWJFvlF3FI°garTi;!S?'f*fRE'^fiOLPpJFY^egE^wT?H°PfEm:^^ 

THIS IS THE LATEST. VERSION OF THE CALCULATION OF THE GALERKIN 
COEFFICIENTS; PREVIOUS VERSIONS, WHICH PROVED TO BE UNSATISFACTORY, 
INCLUDED USING DQATR, AND THEN DASCRIJ, FOR DOING ALL THE 
INTEGRATIONS. 

■{f -Jf if -W if ■jf if -If -Jf -Jf if •}< if -{f -If -If •Jf if -If -If -W -W -jf -If if ■fp -Sf ■•Jf -jf -If if -if -Jf ■If ■If ■Sf ■If -(f -If if -If if ■If if ^ f if -If -w 
JREAL‘f*'ti ( A— H » 0— 4 ) 

REAL XA 
COMMON PI 
nTMPKtc;Tnta mm/ a; 



37. 

C 

66 

FORMAT ( •' -S 6 < D-1 4 . 7 , 2 X ) ) 

ill' hi ■ 

C 

67 

FORMAT ( 2 ( D.l 4. 7 , 2X ) ) 
FORMAT<-' '•',//) 

oo 
•Zi r/ ■ 

C 

6!:I 

40. 

C 

69 

FORMAT <•' •■•,3(D14.7,2X) ) 

41. 

c 

70 

FORMAT (-^^ -lERl- TO -IER20 


71 FORMAT (••• ALL 
ITAPE NUMBER 


44. 

F' I "6 1 4 i 5'9 26*5 'c'S 8 y 

45. 

DO 2 J- 1 , S 

46. 

R< J, 1 )=0. DO 

47. 

T4 ( 1 , J ) -0 . DO 

4S. 

Efz' ( 1, U)— 0. Do 

49. 

D3( J, 1 )-0. DO 

50. 

G3U, J)-O.DO 

51. 

G3( J, 1 )-0. DO 

52, 

XJ3(1, J)~O.DO 

53. 

XJ3(J, 1 )-0.D0 

54. 

XK4(1, J)=0.D0 

55. 

XN4(i, J)«0.D0 

56. 

T4(1,.J)=^O.DO 

57. 

Du .■» K~ 1 , w 

58. 

XK(J, 1,N)=0.D0 

59. 

XK(J,2,K)=0.D0 

60 . ' ^ * 

• ' ' XK-(:.hK, 1 )=^'0'.D0' • 

61. 

As ( 1 , U , K ) —0 . JLIO 

62! . 

A3( J, K, 1 ) '=-0.D0 

63. 

03'( 1, J, K')=0.D0 • 

64. 

03 < J , 1 , ) -0 . DO • 

65. 

. uu ( U , K, 1 ) i.iO . 

Cl**-* ■ 

y3> ( 1 , «_t , K ) ^0 , i,tO 

67. . 

06 ( J , 1 , K ) —0 • ,00 

6iri. 

* Q3 V, <J , K , 1 ) ~Ct . EtO • 

69 . 

• IJ3! ( 1 , U , K ) ”U . EiU . 

70. 

XU4 ( 1 , U , K / “0 • Do 

71. 

XH4( 1, J,K)-O.DO 

72. 

P 4 ( 1 , i„t 7 K ) “0 . DO 

73. 

P4(J,N, :l )-.=0.D0 

74. 

P4(J,K,2)=0.D0 

75. 

W4(l, J,K)~O.DO 

7 6 . 

W4( J,K;, 1 )^0.D0 

77. 

EiU 4 L“ 1,6 

7£L 

B3(l, J,K:,L)-0.D0 

79. 

riS ( J 5 h!. , L , 1 ) —0 • uO 

SO . 

B3 ( J , k! , L , 2 ) =0 . DO 


^ , !z0 ( I !2 , 2X ) ) .. 

THE GALERK IN-LEGENDRE HOVER COEFFICIENTS WERE PUT ON 
T07316 (A PRIVATE TAPE) — (I,J,K:,L) UP TO ( S, 8, S, S ) •" ) 




00 

04^ • 

C3(d, 1 ,K,L)«.O.nO 

00 

0*w< • 

83(d,2-,R7L')«0.B0 

84 . 

U2i ( d 7 d 7 R 7 L ) ^0 .DO 

d5 • 

GSi ( d 1 R 7 1 7 L ) *0 . EiO 

86. 

83<d7 R '7 L 7 1 )-0. DO 

87. 

E3(l ,d7RiL)«0.D0 

0 C* 
oc*« 

E3(d» i,K7L)«0.D0 

89. 

Ed {dfR7l7L) —0 . EiO 

90. 

Ed ( d 7 Iv I L 7 1 ) “0 . EiO 

91 . 

F3(d7K7 l,L)«0.n0 

92. 

F3 ( d 7 K 7 L 7 1 ) . DO 

93, 

F3 ( d 7 1 7 R 7 L) . ElO 

94. 

Fc< (d727 K7L) *0 . DO 

95. 

F3<l,d.R7L)‘--0.D0 

96. 

H3U ,d7K7L)-O.DO 

97. 

Hd ( d 7 1 7 K 7 L ) —0 • DO 

98. 

H3(d7K7 1 ,L)-O.DO 

99. 

Hd (d7is7L7 1) ~0 . DO 

100. 

XI3(1 ,d,R,L)« 0 .no 

101. 

X 1 3 ( d 7 1 7 R 7 L ) —0 . EiO 


ORIGINAL PAGE IS 
OF POOR QUALITY 


102 . 

103. 

104. 

105. 

1 06 . 

107. 

108 . 

1 09 . 

110 . 

111. 

112 . 

118. 

114. 

115. 

116. 
117. 
US. 
U9. 
120 . 
121. 

i. m 
•I ^i«7i 
1 iU*** ■ 

124. 

125. 

126. 

127. 

128. 

129. 

1 30 . 

131 . 
1 32 . 

1 c'ct . 

134. 

135. 

136. 

137. 

138 . 


L") —0". DO' 
XI3( J»K,L, l)=O.DO 
Rd ( 17 i_ItK>L.) ~" 0 . DO 
R3<Jt 1,K>L)?=0.D0 
Rd (uI^Ki UL) ~0 • DO 
Sd (ItUiKyL) ~0 . DO 
dd ( d » 1 » K 7 L ) —0. E(0 
£i3 vdtK? UL) ~0 . EiO 
A4(l, J,K,L)^'O.DO 
A4 ( d 7 K 7 U L ) “0 . EiO 
84 (l7L.l7K>L) —0 . EiO 
84 ( UdiKiL) —0 . EtO 
84 (d7 1 ,K7L)-’O. DO 
C4(d,KM7L)=0.D0 
Ei4 (Ud 7 K 7 L) ~0 . EiO 
E4a*d,K%L)=0.D0 
F4(l,d7K‘7L)«0.D0 
F 4 UI 7 1 7 K 7 L)— O.EiO 
G4(l,d,K7L)~0.D0 
G4 ( 1 .I 7 K 7 UL) ~0 . EiO 
G4 (d7K7l— 7 I) • Eitj 

XI4(l,d,K7L)~0.D0 
XI4(d, l7K,L)-0.D0 
XI4(ul7K7 UD—O. EiO 
XL4 ( 1 7 d 7 K 7 L) — 0 . DO 
XL4v'd7lC7 l,U)=--O.EiO 
XL4^d7 K 7 L 7 iJ~0« EiO 
w4 Cl7d7K7L.) “0 . DO 
Q4(dr 1 7 K 7 L)-0. DO 
Q4 (d7K7 I 7 L) “0 . EiO “ 
04(d7 R ’7 L 7 1 )=0. DO 
Q4 ( d 7 K 7 L 7 2 ) "0 . EiO 
R4(l,d7K7L)-=0.D0 
R4<d, 1 ,K7L)--0.D0 
r 4 ( d 7 R 7 1 7 L ) —0 . Du 
R4<d,R,2,L)O.DO 
R4(d,K,L7 1)-0.D0 


139. 


R 4 ( d 7 R 7 L V 2 ) —0 . EiO 


140. 


V4 ( 1 7 d 7 7 L ) =U . DO 


141. 


V4 ( d 7 1 7 R 7 L ) "0 . EiO 


142. 


V4(d,K7 1 7 D-O. DO 


143. 


04 1 d 7 1's 7 L 7 1 ) — U • DO 


144. 

4 

CONTINUE 


145. 


CONTINUE 


146, 

2 

CONTINUE 


147. 

C CALGULATION OF THE 

148. 


IRl-O 


149. 


IR2=0 


150. 


DO 110 1^,278 

• 

- 151. 


DO 111 d-27S 


1 52 . 


IF<d. OE.I) GO TO 

112 

153, 


IRl-I 


154. 

112 

EiO lid R—jiSW . 


• 155. 


I F { R’ . GE . d ) GO TO 

114 


CGEFF I C I EMT 


IR 2 ^;l 

114 DO 115 L-^2,S 

IF<L.LT.K) GO TO 141 
I F ( I R 1 . EO . 0 . AND- I R2 . EQ . 0 ) GO TO 119 
bO To 141 

119 CALL FI3(X1‘3( I,d,K,L) 7 l7dyR7L) 

GO TO 1 15 

PUT IdKL IN INCREASING ORDER 



io4. 

141 

NN(i)-i r;: 

1S5. 


NN( 2 )-J OF 

163. 


NN(3)=K 

167. 


NN(4)«L 

16S. 


IG-I 

169. 


DO 130 M-2,4 

L70. 


IF<NN(H) .GEL IG)» 60 TO 131 

171. 


KK--=M-i 

172. 


DO 132 N-1,KK 

173. 


IF<NN(M)-. GE.NNXInI-) )‘G0 TO- 132- 

!• / 4 . 


ITX«NN{N) 

175. 


NN<N)-NN(M) 

176. 


NN(M)=ITX 

177. 

*1 

CONTINUE 

17S. 

131 

IG::^ 1 \IN<H) 

179. 

130 

CONTINUE 

180. 


Ml-NNU) ’ ' . 

181. 


N2=NN(2) 

182. 


M3=NN<3) 

1 S‘3> . 


M4=sNN(4) 

134. 


X 13 (1 7 J 7 K 7 L) *-=X 1 3 ( M 1 7 M2 , M3 , M4 ) 

185. 

115 

CONTINUE 

186. 


IR 2-0 


113 

CONTINUE 

1 S 8 . 

111 

IR1=0 

1 W9 . 

110 

CONTINUE 

190. 

C CALCULATION OF THE — n,J,K 

191. 

C 

OF THE M AND N COEFFICIENTS, 

192. 

* ■ - C — -S'** 

ANDt* ALSCf OF' THE GSr, U'-Sv Q3 , AND G 

193. 


no 5 i~i 7 S 

1*94. 


DO 6 J~l7'3 

195. 

' * 

CALL FI4 ( XM ( 1 7 J ) *7 1 7 J 7 K 7 L ) 

196. 

• 

CALL FN ( XN n 7 J )-7 I , J , K . L ) 

197. 

' , 

IF< I.EQ. 1 ) GO TO' 666 

193. 


CALL FG3 ( G3 (1 7 J ) 7 1 7 J 7 K 7 L ) 

199. 


CALL F J3 ( X J3 ( I , U ) , I , J , K 7 L ) 

200 . 

• 

DO 7 K=27S ■ 

20 1 . 

, 

CALL FQ3 ( Q3 < 1 7 K ) 7 I , J , K 7 L ) 

202. 


DO 3 L=:l7S 

203. 


CALL FR3 ( R3 < 1 7 J 7 K 7 L ) , I , .J , K » L ) 

204. 


CALL FS'S ( SS V 1 7 U 7 f’s 7 L ) 7 1 7 J 7 K 7 L ) 

205 . 


R3 < J 7 1 7 K 7 L) =R3 ( 1 7 J 7 K 7 L ) 

206. 


SS ( 1,1 7 I 7 f's 7 L ) “S3 ( I 7 U 7 K 7 L ) 

2C^7 . 


IF(L.LE.2) GO T □ S 

208. 


CALL F Q4 { Q4 ( 1 7 U ? K > L ) 7 1 7 U , K 7 L ) 

209. 


W4 s ij 7 J. 7 L ) — iij4 ^ 1 7 J 7 K 7 L ) 

210. 


CONTINUE 

211. 


|.^!3 ^ U 7 1 7 K ) — Qs ( 1 7 U 7 K ) 

212. 

/ 

CONTINUE 

213. 


XJ3(J, I )=XJ3(I, J) 

214. 


G3 ( J 7 I ) “U3‘ ( 1 7 J ) 

215. 

666 

XM< J, I )=XM(I, J) 

216. 


XN<J, I)=XN(I, J) 

217. 

6 

CONTINUE 


2 IS. 

219. 

220 . 
221 . 


/I24 . 

225. 

226 . 

7 

X ^ / m 
"*^1 "TjC* 

m 

230- 

•-i-r* I 

j. • 

Voo " 
i3. 


*«* S.^ • 

/ ■ 

>J!> C* ■ 

239. 

240 . 

241. 

242. 

243. 
244 • 
245. 


.) COEFFICIENTS WITH IJ- 
COEFFICIENTS BY DIRECT 


•SYMHETRY, 

INTEGRAtlOW 




THE 

03 


AND 


1 


i 1 
10 


CONTINUE 
CALCULATION OF 
AND ALSO OF THE 
no 9 I--2SS* - - ■ 

ElU 1 U U“ 1 V 'c< 

DO 11 K=J>3 

I F < J . WE . 1 > CALL F03 ( 03 ( I , J , K ) , I , J , U 
L-ALL U’3Ci4 ( Us ( 1 1 >_L K J 1 1 7 '-L K. :> L 7 1 7 O ) 

DO 12 L=l70 

lALL AL'E 1 4 ( fc.4 ( 1 7 U 7 K . 7 L ) 7 i 7 U 7 K 7 1 .. 7 U 7 0 7 1 ? u j 
I F ( L . GT . 2 ) CALL’ FB3^< B3 (I , J 7 K , L ) , I , J 7 K 7 L ) 
I F V J . EQ . 1 ) GO T 0 J 203 

CALL ACEI4(XI4<I, J7K,L5 7 1 7 J, N, L, O 7 0, 0 , 1) 
CALL ACEI4CC4(I, J7K7L>7 I, J,K*,L,07 1,070) 
IF(L.NE.l) CALL FV4 ( Y4< I v J, K, L ) 7 I , J, K, L ) 
B3 V 1 7 K 7 ul 7 L ) =B3 < 1 7 .J 7 K, L ) 

•-•4 ( 1 7 K 7 U 7 L ) — U4 ( 1 7 •_! 7 ki 7 L ) 

E4 ( 1 7 K 7 J, L) -E4 (1 7 J, K, L ) 

X 1 4 < 1 7 K 7 J 7 L ) - X 1 4 ( 1 7 J 7 K: 7 L ) 

V4(I,K7 J7L)^V4(I, J,K,L) 

CONTINUE 

OSa.K, J)-^03(I,J,K) 

LI 3 <l 7 K 7 J)-U3(I,rJ,K) 

COigTINUE 
CONTINUE 
CONTINUE 

CALCULATION OF THE ~ 

7 -v-Jc and also of THE C3 AND 


7 u 7 r-.. 7 L. > COEFF I C I EN i S W I TH Jl.!— SYi'iNETRY i 
Us COEFFICIENTS BY DIRECT IInITEGRATIuN 


1201 


1 203 


V I > J 7 K 7 L ) COc.FF I C J ENT£< W I TH KL—SYi'ii'lE j RY , 

F 3 COEFF I C I EN T S BY D I REC 1 I i'JTEGRAT I OiM -k-ii’ 


246. 

247. 

li'At! • 

249. 

250. 

251. 

252. 

253. 

254 . 

O w> • 

ocr:#t 

4^.00 • 

257. 

4lM ^ ■ 

iam %»* y m 
260 . 
261 . 
262 . 
j^C*w « 


285 « 

*^'OT 
jiO/ • 

‘“l »rjt 

» 

289. 

290 . 

291. 

292. 

293. 

294 . 

295. 


"tO 

.iU'JU • 
•tlO 

24 . 
25. 


DO 

DO 

DO 

DO 


13 

14 


T i2 “• O 

i —.A 7 C* 


ii.1 

16 




1601 


J~J ,8 
K~i , 3 

CALL "11304 ’( 04 ( I . U , K , L ) , I , J , K » L , 0 , 1 ) 
IF<J.WE. 1) CALL. FF4<F4<I,.J4K,L)> I, 

IF<K. EG!. 1) GO TO 1601 
CALL FG4(G4(I. J.KSL), I, J,K,L) 

CALL FL4 ( XL4 < I , J. k% L ) , I , J, K, L) 

IF(J.LT.2) GO TO 1601 

CALL FF3 ( F3 ( 1 4 J . K . L ) , I , J, K i L) 

I.F<J.NE.3) CALL FC3(C3<I , J, K. L) W , J, K, L) 
F4(I, J4L,K)~F4(I. J,K7L) 

G4 ( I , J, L, K) »^G4( I , J, K% L) 

XL4 ( I ,, J 4 L . K ) ~XL4 < I , J , K , L) 

D4 (I.JtL.K.) ~d4 \ I > •_! > K 1 L ) 

F3<I, J>L,K)-F3<I, J,K,U 
C3<I, J,L,fO~C3(I» J,K,L) 
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264. . 


16 

CONTINUE 

265. 


15 

CONTINUE 

266, 


14 

CONTINUE 

,■*, » Mf 

/ a 


13 

CONTINUE . . 

26S. 

c 

CALCULATION OF THE 


c 


AND ALSO OF THE D3.K4 

270 . 

271. 

0 


BY DIRECT' INTEGRATION 
IR’-O 

Am / ^ » 



DO 210 1-^2, 3 

■ 



DO 211 wl-ltS 

274. 



CALL J4K4 < XK'4 (1 7 J ) 7 I , J 

275. 



CALL FN4(XN4( I, J) 7 I 7 J 7 I 

■ 



CALL FT4 ( T4 ( 1 7 J ) 7 1 7 J, K 

/ / ■ 



IF(U.NE.l) CALL FD3<D3 

278 . 



DO 212 K=l7S 

f y 9 



CALL J4K4CXJ4(I, J,K) 7 I 

28C) . 



CALL FM4(XM4a 7 J,K) 7 17 . 

Cl J m 



IFilK.EQ.l) GO TO 2111 

0 c* 



CALL A3P4(A3<I, J,K ) 7 I,. 

0 0 1* 



CALL FW4(W4(l7 J7K>7 l7 J 


Jk’L—SYI'IHETRIC B4 COEFFICIENT > 

. N4, T4, A3, J4, M4, W4 COEFFICIENTS 

■ ■ . .. 


» L ) 
,U 


0 , 1 ) 


) » .1 T 0 j K » L ) 


K,L) 

2111 IF(K.GE.J) GO TO 213 
IR~1 

213 DO 214 L-1,S 

‘ IF(L.LT.K) GO TO 241 

IF< IR..EGi. O),. GO JO. 2i5. _ 

GO TO 241 

215 CALL_FB4(B4(I, J,K,L) ,1, J,K,L) 

♦ GO TO 2 1 4 ’ 

C PUT JKL IN INCREASING ORDER 

* 241 NNv 1 )-J 

NN(2)-k 

NNC3)-L 


^0) 


296 . 


IG-J 

297 , 


DO 216 I'I-27^ 

298. 

* 

IF(NN(M) .GE 

299, 


KK‘=^N -1 

300 . 

301 . 

302. 


DO 218 N-l.l 
IF(NN(H) .GE 
ITX^NNCN) 

oOo , 


NN(N)-NN(N) 

304 . 


NN(M)-ITX 

C:05 . 

218 

CONTINUE 

306. 

x*« 1 / 

IG~NN(M) 

c<0 / . 

216 

CONTINUE 

30S- 


Hl^NivKl) 

309. 


N2-NN(2) 

310. 


H3-NN<3) 

311. 


B4CI, J,K7L)^ 

0 1 Tt 
J. ^ m 

214 

CONTINUE 

0 1 sZ* * 


IR -0 

314. 

212 

CONTINUE 

315. 

21 ] 

CONTINUE 

' 316. 

210 

CONTINUE , 

317. 

C •!<•>'? 

CALCULATION 

3 1 8 . 

C 

and I 

319. 


DO 20 1-270 

’’ 320 . 


Du 21 J— I 7*0 

321 . 


E<0 K — 278 


GO TO 217 


;i3 


-B4(I,Mi,M27hi5) 


OF* THE < IJ^KD-SVHNETRIC HS AND 
ALSO OF E5 by DIRECT INTEGRATION 


rvM U.Uf.rr 


DO 2‘3 L-k»S 

GALL FES ( E3 ( I , J, K, L.) , I , J » k, L) 
I F < K* . EQ . 2 ) GO T 0 .23 1 
CALL FR4 ( R4 ( I » J » Kv L ) ? I » J 7 K > L ) 
L'ALL PHc V Ho V 1 7 0 7 K 7 1 . ) 7 1 7 U 7 K 7 L ) 


i~ I ENTS > 




327. 

32S. 

32'?, 

•IiOU ■ 


.-icro 
s.'wX« m 

353. 

354. 

355. 

356. 

357. 
35 S. 

359. 

360 . 

361. 

c>64Ci * 

363i. 

S;64. 

365. 

366. 

367. 
'363> . 

369 . 

370. 

371. 

372. 

373. 

374. 

375. 

376. 

377. 


4p2 . 
,403. 

404. 

405. 

406. 

407 . 
403 . 


H3 n , J , L , K ) =H3 a , J . K ,*L ) 
■ H3<J, I»K»L)=H3{I» 

— HSi ( I T L. f K*)— 4^3 ( -I » <J"» 1—4 

R4(I, J,L,K)=R4( 1, J,K,L) 
R4 ( J , I , K , L. ) -~R4 ( I , J , K > L) 
R4 ( J , I , L , K ) -R4'{ •! , J , K , L) 
E3f( I , J, L, K)«E3(.r , J, K, L) 
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C'wH • 

• 

ESKJ, I,K,L)=E3d 

7 J 7 K 7 L ) 

WWW m 


E3(J, I7L,K)-E3d 

7 <J 7 K 7 L ) 

336. 

'* ** • 

GO TO 23 

• 

/ m 

. . '7*^ 

CONTINUE 


«ItwC< 9 

22 

CONTINUE ^ 


339 . 

' 21 

CONTINUE 

‘ 

340. 

20 

CONTINUE 


341. 

C *4^# CALCULATION OF 

THE A4 AND P4 COEFFICIENTS 

S' 42 . 


DO 25 1=27*3 


34s . 


DO 26 J=i,S 


344. 


DO 27 K=2,S 

* 

345. 


IF(K.GE.SI) CALL 

A3P4(P4 ( 1 7 J, K) 7 1 7 .J, K, L, 0, 1 ) 

346. 


Ciij 2s L=l7£i 


347. 


CALL ACEI4(A4(l7 

ij 7 K 7 L ) 7 1 7 U 7 K 7 L 7 1 7 u 7 u 7 u ) 

Si 4i3 • 

liO 

CONTINUE 


349 . 

27 

CONTINUE 


350 . 

26 

CONTINUE 


351. 

25 

CONTINUE 

• • 


C‘ CALCULATION OF THE REMAINING COEFFICIENTS 

C THE MA I N GENERATORS ARE F4 , G4 , V4 , X 1 3 , A4 , C4 , 1 4 , E4 , L4 , S3 , 

C (P4 IS ALSO A GENERATOR, BUT WAS WOT USED AS SUCH) 

R00T3=2*DSQRT < 3 . DO ) 

R00T5=D3;0RT’< 5 . DO ) 

R00T7-DSQRT<7.D0) 

XXL3=^--R00T.3-<^lr'IJ^-lf2 . 

DO 29 1=17.3 

Ad) =F4 d , 2, 1 , 1 ) /ROOTS 

Bd)=G4d, 1,2,2)/12 

C d ) •- V4 d 7 2 , 2 7 2 ) / < 1 2^^R00T3 ) 

DO 30 .J=1,S • 

IF(J.NE.i) CALL FR(Rd, J) 7 I, J,K,L) 

DELd,J)=0.D0 

IF(J.EQ.I) DELd,J)=l.DO 

DELTA d , J ) =Q4 d , 2, 2, J ) / 12 

P < I , J ) =~DEL d 7 J ) ^^ ( < P I * d -0 . 5D0 ) ) **2 ) 

D < I , .J ) =~X 1 3 d 7 J , 2 , 2 ) /24 

Ed,.J)=G4d, J72,2)/12 

X I< I , J ) =A4 (171,2,0) /ROOTS 

XJd, J)=C4d,2,2, J)/12 

0 d , J ) =G4 d 7 1 , J 7 2 ) / ROOTS 

XL3 d 7 J ) = A3 d 7 .J 7 2 ) / ( X X L3-5f < .J-0 . 5D0 ) ^^^ 2 ) 

XK3 d 7 J ) =R4 ( 1 7 .J 7 3 7 3 ) /720 . DO 
• D3 d 7 J ) =D3 d 7 J ) +XK3 d 7 J ) 

4F-< DABS ( D3-< I*, J-) )-. LT-. -1 . D-7 ) D3 ( I , J-) =0 . DO - - ^ 


D4 7 04 7 R4 


c* • 


W3d, J)=F4d, J, 1, 1 ) 

379- 


04 d 7 .J ) =E4 d 7 1 7 1 7 J ) 

- 


DO 31 K=1,S 

c*o 1 

00 1 a 


I F < K . NE . 1 . AND . J . GT . 2 ) CALL 

000 

m 


Fd, J,K)=XL4(K, 1 7 I, J) 

‘ 0 **!' 

W I*.) a 


1-7 ( 1 7 U 7 K ) = A4 V 1 7 U 7 2 7 K ) / rtUUT S! 

OO/I '* • 

OOM- a 


HCI, J7K)=E4d, J., 1,K) 

00«T 

m * 


XN3d, J,K)=G4d., 1, J,K) 

m y 


P3d7.J,K)=S3d7.J7K7 1) 

0 0 / a 


T3 ( 1 7 .-1 7 K ) =G4 d 7 U 7 K 7 2 ) / ROOT 

•'T* C* 

a 


V3 d 7 .J 7 K ) =F4 d 7 2 7 -J 7 K ) / ROOT 

0 *r*> 

C‘Oy m 


XSid, J7K)=D4d, 1, J,K) 

390 . 


YSid, J7K)=A4d, 1,.J7K) 

391. 


Z3d7.J7K)=F4d,K, J,!) 

3'92. 


S4 d 7 J, K ) = V4 d 7 .J 7 K, 2 ) /ROOT 

393 . 

31 

CONTINUE 

S<94 • 


XMSd, J)=XM4d, J, 1 ) 

395. 

30 

CONTINUE 

396. 


H4 d ) =XN4 (1,1) 

397. 


CALL FU4(U4d), I7J,K,L) 

OOC" 

wy*' L«* a 

29 

GONTIi\IUE 

399. 


SA=DSQRT ( 2 . DO ) /P I •a-iJ-2 

400. 

♦ 

DO 36 1=1,8 

401. 


Q d ) =-XL3 (2,1) /ROOTS 


.?■ 


St. A= I ““U . 5EiO. 

S' ( I ) =SA'JfEfS I N ( SSiA'JrP I ) /iSSA-K-it’S 
36 CONTINUE 

DO 400 1=1 7 S 

WRITE ( 50.) A d ) J Bi I ) 7 C d ) .7 Q.( I ) , S d ) , H4 d ) , LI4 d ) 
400 CONTINUE 

DO 411 1=1, S 




4u9. 
410. 
4U. 
412. 
4 i •£! . 

414. 
4 IS. 
<=116. 
417. 

415. 
415', 

420. 

421. 

a 

423. 

4kl»-i . 

426. 

427. 
423. 
429.. 

430 . 

431. 
432: . 
433 ■ 

434. 

435. 
433. 
437. 
433 . 

439. 

440. 

442, 

443 . 

444. 

445, 


420 

411 


DO 42’0 J-li 8 

H6 1 ^ ^ I ^ I ’ *"! V ’ wH ^ ^ ^ i ^ » p ^ I » "-1 5 ^ i ’ •-! 5 » d 3 ( I ? j ) 

Hg ll§ ^9 9 ® n ; *■' \ \ \ i h J<i-3 a , j > , xna a , j ) . W3 ci , j > 

WRITE (50 ) XK4 ( I , J ) , XN4 ( I , wl ) , 04 <I , J > , T4 ( I , J) 

LLiNTINUE 
CONTI IMLIE 
DO 430 I~l>!=: 

DO 440 Jwl.S; 

DO 450 K=l ,8 

WR I TE-< 5^) . F-< -I-, -..U K ) t G( I J , K ) , H (I , J , K ) , X k‘ ( I , J WO , A3 U , J , k* ) « 

1,XN3(I,J,K) 

1 v^iT I J j?K ) ^ ^ ’ r' ’ » PS < I ’ ’ QS a . J , K' ) , T3 a , .J , K ) , U3 < I , J , K ) 

! ^ ^ ) » Y3 ( I , J WO , Z3 ( I , d, io , X J4 (I , J WO , XH4 < I , d, K ) 

iJjRI TE ( ‘S 6 r S4 \ I , d W< ) , W4 ( I , d, K ) 

CONTINUE 
CONTINUE 
CONTINUE 
DO 430 1-1,8 * 

DO 470 d=sl,S 
DO 480 K‘“i,S 
DO 490 L--I 18 


450 

440 

‘430 


WR I TE < 50 B3 ( I ; d W>: , L ) , C3 ( I , d , k* , U , E3 < I , d WC , L) , F3 v I , d , fO L) 

1 ,H3( I , d, k, L) , XI 31 : 1 , d, k, L) 

WR I TE ( 50 5 R3(I,d7K,L),SGi(I,d,k,L), A4‘ ( I , d , K! , L ) , B4 ( I , d , k* , L) 

1 , C4 (I»d,K,L), D4 ^I,d»K,L) 

WR I TE ( 50 ) E4 ( I , d WO L) , F4 < I , d , K , L) , 04 ( I , d , ^0 L) , X 1 4 ( I , d W-O L) 

i V I .1 / T I 1.'^ I \ J\ / T I l.k* t \ 


490 

480 

470 

460 


1 , X L4 ( I , d » K , L ) , W4 ( I , d , 10 L ) 

WRITE < 50 ) R4 ( I , d W<, L) , V4 < I , d WO L) 

CONTINUE 

CONTINUE 

CONTINUE 

CONTINUE 

WRTTE(6,71 ) 


446. 

C w Hi’ -S' 

447. 


00 TO 4'?'9 

443 . 


.449. 


450. 

65 

FORMAT (•'I'W 

451 . 

66 

FORMAT< -' 0 7<D14.7,2X) ) 

452. 

67 

FORMAT ( ■' 0 5(D14.7,2X) ) 

453. 

6'ti 

FORMAT (•' f) 

454. 

69 

FORMAT ( ■' , / ) 

455. 


WRITE(6,65) • . 

456, 


DO 40 1-1,5 

457. 


WRITE ( 6, 66 ) A n ) , B a ) , C ( I ) , Q ( I) 

45<”l > 

40 

CONTINUE 

459. 


WRITE(6,69) 

460. 


DO 41 1-1,5 

461. 


WRITE(6,67) DEL(I, 1 ) ,DEL<I,2) ,D 

462. 

41 

COIvJTINUE 

463. 


WRITER 6, 68) 

4- 6 4 . 


WRITE (6, 800) 

465. 

800 

FORMAT (••• DELTA') 

466. 


DO 42 1—1,5 

467. 


WR I TE ( S’, 67 ) - DELTA S -1 , 1-) , DELTA ( I , 

468. 

42 

CONTINUE 

469. 


WRITE <6, 63) 

470. 


WRTTE<6,S01) 

471 . 

. SOI 

FORMAT ( D-' ) 

472. 


DO 43 1-1,5 

4 7 3 • 


WRTTE(6,67) D(I', 1 ),D(I,2),Da,3 

474. 

*+3 

CONTINUE 

475. 


WRITE (6, 68) 

476. 


WRITE <6, 802) 

477. 

’ 802 

FORMAT (■' E') 

473 . 


DO 44 1-1,5 

479. 


WRITE < 6, 67 ) E ( 1 , 1) , E C 1 , 2 ) , E< 1 , 3 

460 . 

44 

CONTINUE 

481. 


WRTTE(6,6S) 

482. 


WRITE (6, SOS') 

433 . 

803 

FORMATS I') 

484. 


DO 45 1-1,5 

485. 


WRITE (6, 67) XI (I, 1 ) , XI ( 1,2) , XI ( 

433 . 

45 

CONTINUE 

4S7. 


WRITE ( 6, 68 ) 

438. 


WRITE(6,S04) 

489 . 

804 

FOR'hiAT < •' d ‘) 

490. 


DO 46 1=1,5 


page SS 

OF POOR QUALITY 


* 



491 , 

492. 
492. 

494. 

495. 
496. . 
497. 


;;i2/ . 
rro C* 

a 

529. 

530. 

531. 


WRITE (6, 67) XJU> 1) »XJ(I,2),aJ(I, 3) ,XJ r»4) ,XJ<I»5) 
46 CONTINUE 

WRITE<6,6S) 

WRITE{6,305) 

305 F0RHAT(£ N*') 

^'^■^1(6767) Xl'HI, l),XMn,2),XNa,3) ,XH(I. '^) ,XNav5) 


498. 

47 

CONTINUE 

499. 


WRITE (6, 68) 

500. 


WRITE (6, 806) 

501 . 

0 

CO 

FORMAT (•' N-') 

502. 


DO 48 1-1,5 

503. 


WRITE(6,67) 

504. 

48 

CONTINUE 

505. 


WRITE (6, 68) 

506. 

507. 

807 

WRITE (6, 807) 
FORMAT (•' 0*' 
DO 49 1-1,5 
WRITE (6, 67) 

508. 

5 U 9 . , 

510. 

49 

CONTINUE 

511. . 


WRITE (6, 65) 

512. 


WR I TE ( 6 7 yOiri ) 

513!. 

80:3 

FORM AT (• P*') 

514. 


DO 50 1—1,5 

515. 


WRITE (6, 67) 

516. 

50 

CONTINUE 

517. 


WRITE (6, 68) 

5 1 S3 . 


WRITE <6, 809) 

519. 

809 

FORMAT ( ■' R') 

520. 


DO 51 1=1,5 

W«llL X 0 


WRITE(6,67) 

u 

51 

CONTINUE 

trOO 

a 


WRITE (6, 68) 

524 . 


WRITE (6, 810) 

*.•* w( a 

810 

FORMAT (•' D3-' 

SmI a 


DO 52 1=1,5 


ORIGINAL PAGE IS 
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WRITE ( 6, 67) XN(1 , 1 ) , XN< 1 ,2) 7 XN( 1 ,3) , XN( 1 ,4 ) 7 XN< 1 7 5) 


WRITE (67 67) D3< I 7 1 ) 7 D3( 1 ,2)7 D3( 1 7 3) , 03(1 , 4) , D3( 1 , 5) 
H2 CONTINUE 

WRITE < 67 68 ) 

WRITE(6,S1 1 ) 

811 FORMAT( -- 03*') 


rr. c» 


DO 53 1=1,5 

0 


WRITE (6, 67) G 

1 534. 

53 

CONTINUE 

i 535. 


WRITE <6, 68) 

I 536. 


WRITE(6,S12) 

* csoT 

/ a 

812 

FORMAT ('• J3*') 

* er^io 

C< a 


DO 54 1=1,5 

■ 539 . 


WRITE(6,67) X 

540. 

54 

CONTINUE 

- 541. 


WRITE (6, 68) 

542. 


WRITE (6, 813) 

543. 

813 

FORMAT (*' K‘3-') 

544. 


DO 55 1=1,5 

545. 


WRITE (6, 67) X 

■ 546. 

55 

CONTINUE 

■ 547. 


WRITE <6, 68) 

548. 


WRITE(6,S14) 

1 549 . 

CO 

FORMAT (■■ L3') 

550 . 


DO 56 1=1,5 

! 551. 


WRITE(6,67) X 

, . 552. 

56 

CONTINUE 

' 553. 


WRITE (6, 68) 

554. 


WRITE(6,Si5) 

55 D . 

815 

FORMAT (•' M3-') 

! 556 . 


DO 57 1=1,5 

* 557 . 


WRITE (6, 67) X 

CJ c* 

a 

57 

CONTINUE 

559. 


WRITE (6, 63) 

, 560 . 


WRITE(6,S16) 

■ 561. 

816 

FORMAT ( W3 ' ) 

^ 562 a 


DO 58 1=1,5 

0 

a 


WRITE (6, 67) W 

564. 

58 

CONTINUE 

565. 


WRITE (6, 65) 


WR I TE < 6 7 67 ) X J3 < 1 7 1 ) , X J3 (172)7 X J3 ( T 7 3 ) , X J3 (1,4), X J3 ( 1 7 5 ) 


WR I TE ( 6 7 67 ) XK3 (1,1), XK3 (1,2), XK3 (1,3), XK3 (1,4), XK3 (1,5) 


WRI TE ( 6, 67 ) XL3 (1,1), XL3 (1,2), XL3 ( I , 3 ) , XL3 ( I , 4 ) , XL3 (1,5) 


WR I TE ( 6 7 67 ) XM3 (1,1), Xl‘13 (1,2), Xl'iS (1,3), XM3 (1,4), XH3 ( 1 , 5 ) 


566. 

WRI TEC 6, 8.17) 


817 FORMAT (••■ K4 ' ) 

5c'0 . 

DO 59 1=1,5 

569. 

WRITE (6, 67) X 

57 0 . 

59 CONTINUE 

571 . 

WRITE (6, 68) 

572 . 

WRITE(6,818) 


•» ■ ■ ai% . 


ORlGU^At Pf'^ 

OF POOR QUALITY 

573. 

S 1 8 

FORMAT < • N4') 

574. 


DO 60 I«l,5 

575. 

60 

WRITE (6 ,67 ) XN4 ( 1 , 1 > , XN4 v'l , 2 ) , XW4 ( 1 , 3 ) , XN4 a , 4 ) , Xivl4 vl , 5 ) 

57 &t • 

continue 

577. 


WRITE (6, 68) 

57S. 


WRITE(6,S19) 
FORWATv'^ 04') 

579. 

CO 

' 5S0 . 


DO 61 1-1,5 

581 . 

61 

WRITE <6, 67 ) 04 ( 1 , 1 ) , 04 < 1 , 2 ) , 04 n , '3 ) , 04 ( 1 , 4 ) , 04 ( 1 , 5 ) 

582. 

CONTINUE 



WRITE{6,63) 

•584. 


WRITE (6, 820) 

585. 

820 

FORMAT (n T4') 

586. 


DO 62 Ial,5 

5 c! / . 

62 

WRITE<6v67) T4( r, 1 ) , T4 < 1 , 2) , T4 < 1 , 3) , T4 < 1 , 4 ) , T4 < 1 , 5) 

588. 

CONTINUE 

589 . 


WRITE<6,65) 

590 . 


WRITE <6, 821) 

591 . 

821 

FORMAT (•' F') 

592 . 


DO 501 1=^1, 5 

593. 


DO 502 wl«l,5 

594. 


WRITE(6,67) F(I, J, l),F(I,U,2),r <1, J,3),F(I, J,4),F(I, J,5) 

595. 

502 

CONTINUE 

WRITE(6,6S) 

596. 


597. 

501 

CONTINUE 

WRITE(6,822) 

59i=i. 


599. 

822 

FORMAT on 

600 . 


DO 503 1-1,5 ^ 

601. 


DO 504 U-i,5 

602 . 


WRITEC6, 67) 0< I , J, 1 ) , Cn'I , J, 2) , G( I , J, 3) ,0(1 , J, 4) ,0(1, J, 5) 

603 . 

504 

CONTINUE 

•604. 


WRITE (6, 68) 

605. 

503 

CONTINUE 

60c* . 


WRITE (6, 65) 

607. 


WRITE (6, 823)* ’ 

'60S. 

823 

FORMAT (r H-')- 

609 . 


DO 505 I--l,5 

610. 


DO 506 J~l,5 

611. 

506* 

WRITE<6,67) H(r,U, 1 ) ,H(I, J,2) ,H(I, J,3),h’a, J,4) ,H(I, J,5) 

o 1 . 

CONTINUE • 

D 1 3 . 


WRITE (6, 68) 

614. « 

505 

CONTINUE 

615. 


WRITE <6, 824 ) 

616. 

824 

FORMAT <•' K'*) • 

o 17. 


DO 507 1-1,5 

618. 


DO 508 J-1,5 

619 . 

SOS 

WRITE (,6,67 ) XK( I , J , 1 ) , XK ( I , J , 2 ) , XK ( I , J . 3 ) , XK ( I , J , 4 ) , XK* ( I , J , 5 ) 

620 . 

CONTINUE 

621 . 


WR I TE ( Cl , 68 ) 

622. 

507 

CONTINUE 

623. 


WRITE (6, 65) 

624. 


WRITE (6, 825) 

625. 

825 

FORMAT (•' A3-') 

626. 


no 509 1-1,5 

627. 


DO 510 J-1,5 

628 . 

510 

y? ^ ^ 1 A ’ ^ ^ Ac! (I,J, i)> Ac* ( I , J , 2 ) , Ac! C I , o 1 8 ) , Ac! ( I , J , 4 ) , Ac! ( I , V.1 , 5 ) 

629. 

CONTINUE 

630 . 


WRITE (6, 68) 

631. 

509 

CONTINUE 

632! • 


WRITE (6, 826) 
FORMAT < •' N3') 

633. 

826 

634. 


DO 511 1-1,5 

635. 


DO 512 J-1,5 

636 . 

512 

^0 Z XG T ^ XNci \ I , J 1 1 } , XNc' \ I , J , .js. ) , XNc* ( I , J » cl ) , XNc' \ I , J , 4 ) , Xl’lc* ( I , J , 4 ) 

6 ct / tt 

CONTINUE 

O wi Ci • 


WRITE (6, 63) 

639 . 

511 

CONTINUE 

640 . 


WRITE (6, 65) 

641. 


WRITE (6, 827) 

642' . 

827 

FORMAT (♦' 03-') 

643. 


no 513 1-1,5 

644. 


DO 514 J^l,5 

645. 


WR I TE ( 6i , 67 ) Oc! ( I , J , 1 ) , Oc! ( I , v.1 , 2 ) , 08 ( I , J , 8 ) , i.*c* ( I , J , 4‘ ) , iJc! ( I , J , 5 ) 

646 . 

514 

CONTINUE 

647. 


WRITE (6, 68) 

648. 


CONTINUE 

6^9. 


WR I "TE ( 6 , i52S ) 

650. 

C* 

FORMAT ( •' F3’) 

651. 


DO 515 1—1,5 

6o.i^ . 

J 


no 516 J-i,5 


WR I TE \ 6 , 6'7 ) P8CI,J,i), P8 C I , J , 2 ) , F'ci v I , J , c> ) , F 3 ( 1 , J , 4 ) , r c; v I , J •, 5 ) 


t '-X - 


.9 a 64 . 


»aMiRffCj»3 •■ •» ssnse»9 -a 


I f 9 ■ « *s» rs» •' • ■ 9 s 


654. 

655, 
656> • 

657, 

658. 

659, 

660. 
661 . 

' 662. 
6^8 , 

664 . 

665. 

* 666 i , 

667. 

668 . 

669. 

670. 

671 . 

672. 

673. 
67 q-. 

675. 

676. 

677. 

678. 

679. 
68(.) . 
68 1 . 
6>xi2 « 

683 . 

684 . 

* 686 . 
Ci87 . 
688. 
689 . 

' 690 . 

691 . 

692 . 
6 > 93 . 

694. 

695. 
6'96i » 

697. 

698. 

699. 

700. 

701 . 

702. 

703. 

704. 

705. 

706. 

707. 
70S. 

709. 

710. 
71 i- 

712. 

713. - 

714. 

715. 

716. 

717. 

718. 

719. 

720 . 

721. 

/ ^2 . 
7 .iO . 

. / . i:!i 4 ' . 

725. 

726. 

727. 
*728. 
729 . 

/ 80 . 
731- 

732. 

733. 
784. 

70 rr 
/ o>*l . 
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516 CONTINUE 
WRITE<6,63) 

515 CONTINUE 
WRITE (6, 65) 

WRITE(6,S29) 

829 FORMAT < ' 03*') 

DO 517 1^1 » 5 
DO 518 J«l,5 

yBJ.If ^ I » U, 1 ) , Q3< I , wl, 2) , 03(1 1 J, 3) , 03(1 » J, 4 ) , 03( I , J, 5) 

518 CUNTINUE 
WRITE ( 6 , 68 ) 

517 CONTINUE 
WRITE <6, 830) 

830 FORMAT (*' T3*') 

DO 519 I«l»5 
DO 520 J«t,5 

S'^'O cOnT ?I^ME*”'^ ^ To(I»U»l)>T8(l7«J»2)» T 8 (I»J»3)7T8(I»U»4)»T3(I»U»5) 

WRITE( 6 , 6 S) 

519 CONTINUE 

WRITE(6,65) ... 

WRITE(6,8310) 

8310 FORMAT(' U3' ) 

DO 521 1=1,5 
DO 522 J=l,5 

_ _ ^ ( I 7 U 7 1 ) 7 U 8 ( I 7 U 7 2 ) 7 U3 ( 170 , 8)7 IJ 8 ( I 7 U » 4' ) 7 U3 ( I 7 >J 7 5 ) 

522 UUNTINLIE 
WRITE ( 6 , 68 ) 

521 CONTINUE 

WRITE (6, 831 ) 

831 FORMAT (•' V3 ' ) ’ 

DO 523 1=1,5 
Du 524 U= 1 7 5 

^ V3 ( 1 7 J 7 1 ) 7 V3 ( I 7 J 7 2 ) 7 V3 ( 1 7 J , 3 ) 7 V3 ( I 7 J 7 4 ) 7 V3 ( I 7 J 7 5 ) 

524 CUNTINUE 
WRITE ( 6 , 68 ) 

523 CuNrINUE 
WRITE ( 67 65) 

WRITE (6,832) 

832 FORMAT ('■ X3*' ) 

DO 525 1=1,5 
DO 526 U=1 7 5 

CnNT^NME^'^ U 7 1 ) 7 X8 ( 1 7 U 7 2 ) 7 X3 ( 1 7 U 7 8 ) 7 a3 ( 1 7 wl 7 4 ) 7 X3* ( 1 7 U 7 5 ) 

WRITE( 6 , 6 S) 

525 CONTINUE 
WRITE (6, 833) 

833 FORMAT (•' Y3'* ) 

DO 527 1=1,5 

DCi 52*8 J=1 , 5 « 

^ Y8 ( 1 7 ij ?*1 ) 7 Y8 ( 1 7 J 7 2 ) 7 Ys ( 1 7 J 7 Si ) 7 Y3 ( I , J , 4 ) , YSI ( I , J 7 5 ) 

WRITE ( 6 , 68 ) 

527 CONTINUE 
WRITE (6, 65) 

WRITE (6, 834 ) 

834 FORMAT (•' Z3*' ) 

DO 529 1=1,5 
DO 530 J=l,5 

^ Z8 ( 1 7 U 7 1 ) 7 Z8 ( 1 7 U, 2 ) 7 Z'8( 1 7 U 7 Si ) 7 Zsi ( I , U 7 4 ) » ZSl ( I , , 5 ) 

b80 ULiNTINUE 

WRITE ( 6 , 68 ) 

529 CONTINUE 

WRITE (6, 835) 

835 FORMAT (•' J4 ' ) 

DO 531 1=1,5 
ElU 582 U= 1 , 5 

yj? J,X?i ^ ^ XiJ4 ( 1 7 iJ 7 1 ) 7 aU4 ( 1 7 U 7 2 ) 7 X'J4 ( 1 7 j 7 S* ) 7 XU4 ( 1 7 j , 4 ) 7 XU4 ( 1 7 J , 5 ) 

582 LONTINLIE 

WRITE ( 6 , 68 ) 

531 CONTINUE 

WRITE(6,65) 

WRITE (6, 836) 

836 FORMAT (■' M4*' ) 

DO 533 1=1,5 
DO 5Si4 U=1 , 5 

XM4( I, j, 1 ) , XM4( I, J,2) , XM4( I , J, 3) , Xi>14(I, J,4 ) , XM4( I, J,5) 

584 UUNTINUE 

WRITE ( 6 , 68 ) 

533 CONTINUE 

WRITE(6,S37) . 

837 F0RI‘1AT(*' P4*') 


736. 

737. 

738. 

739. 

740. 

741. 

742. 

743. 
'744. 

745. 

746. 

747. 
•748. 

749. 

750. 

751. 

752. 

753. 
754 ^. 

755. 

756. 

757. 

758. 

759. 

760. 

761. 

762. 

763. 

764. 

765. 

766. 

767. 
*76 ti . 

769. 

770. 

771 . 
*ZZ2. 

773 . 

774. 

775. 

776. 

777. 

778. 

779. 

780 . 

781. 

t C>.£. . 

783. 

784. 

785. 

786. 

787. 
7wfc! . 

789 . 

790. 
791.. 

792. 

793. 

794. 

795. 

796. 

797. 

798. 


DO 535 I-i>5 
DO 536 J«U5 

WRITE{6.67) P4<I. J. l)tP4(I» J.2),P4<I, Ji3J ,P4(I, 

536 CONTINUE 

WRITE(6»6S) n ■' L 

535 CONTINUE ^ 

WRlTEji, 65J OP POQH QWiU. 

WRITE(6jS3S) « 

838 FORMAT < ^ 84*') 

DO 537 lal,5 
DO 538 J»l,5 

WRITE(6, 67) 84 ( r, J, 1 ) , S4< I . J» 2) , S4< 1 1 J* 3) , S4( I , J, 4 ) S4< I » J» 5) 

538 CONTINUE ' . 

WRITE<6»68) 

537 CONTINUE . ■ 

WRITE{6,839) 

839 FORMAT<*' W4*') 

DO 539 r« 1,5 

DO 540 J«l,5 * ’ . - , . . 

WRITE(6,67) W4<X, Jri),W4<I, .S2) ,W4<I, J,3) ,W4( I, J,4) ,W4<I, J,13) 

540 CONTINUE 
WRITE (6, 68) 

539 CONTINUE 
WRITE<6,65> 

WRITE C6, 840) 

840 FORMAT I" B3*') 

DO 541 1^1,5 
DO 542 J=l,5 
DO 54**** K^l » 

WRITeT6, 67) ‘■B3< I , J, K, 1 ) , 83(1., J, KS 2) , B3( I , J, K‘ , 3) , B3( I , U, K, 4) 
1,B3(I, J»K,5) 

543 CONTINUE 
WRITE (6. 68) 

542 CONTINUE 

IF(I.EQ.2.0R. I.EQ.4) WRITE (6, 65) 

IFCI.EQ. i.OR. I.EQ.3) WRITE (6, 69) 

541 CONTINUE . - . .... * 

WRITE (6, 65) 

WRITE(6,S41) 

841 FORMATC’" .C3-") ‘ 

DO 544 I«l,5 
DO 545 J-1,5 
DO 546 K=l,5 

WRITE(6, 67) C3( I , J, K, 1 ) , C3( I', J, K, 2) , C3( I , J, K, 3) , C3< I , J, K, 4 ) 
1,C3(I, J,K,5) 

546 CONTINUE 
WRITE (6, 68) 

545 CONTINUE 

IF(I.EQ.2.0R. I.EQ.4) WRITE(6,65) 

IFd.EQ. l.OR. I.EQ.3) WRITE<6,69) 

544 CONTINUE 
WRITE (6, 65) 

WRITE (6, 842) 

842 FORMAT ('* E3 d 
DO 547 I«l,5 
DO 548 J«l,5 
DO 549 K=1.5 

WRITE(6,67) E3( X, J,K, 1 ) , E3 ( I , J, K\ 2) , E3( I , J, K. 3 ) , E5( I , J, KS 4) 
i,E3( I, J,K,5) 

549 CONTINUE 

IFd.EQ. 2. OR. I.EQ.4) WRITE (6, 65) 

IFd.EQ. l.OR. I.EQ.3) WRITE (6, 69) 

548 CONTINUE 


799 . 

547 

CONTINUE 

800. 

. 

WRITE (6, 65) 

801. 


WPri'E:6»843) 

802. 

843 

FORMAT (•' F3'’ 

803. 


DO 550 1=1,5 

804. 


DO 551 J=l,5 

o(j5 . 


DO 552 K=l,5 

Ir.i06t . 


WRITE (6, 67) 

807. 


1 ,F3d, J,K,5) 

SOS. 

552 

CONTINUE 

809. 


WRITE (6, 68) 

810. 

551 

CONTINUE 

81 1 , 


IFd.EQ.2.0R 

Si 2. 


IFd.EQ. I .OR 

O 1 

C< i • 

550 

CONTINUE 

814. 


WRITE(6,65) 

815. 


WRITE(6vS44) 

816. 

CO 

FORMAT (•' H3- 

817. 


DO 55c! 1 = 1.5 


r;st 


S20. 

321. 

022. 

S23. 

©24. 

S2S. 

*S2&. 

©27. 

020. 

029. 

*830. 

831. 

832. 
©33. 
S^^‘4 . 
©35. 
036. 
337. 
330. 

c»c*y • 

040 . 
341. 
©42. 
043. 
844. 
045. 
fci4ci . 
047. 
84i;! . 
849. 
*050 . 
851. 

052. 

053 . 
» S54 . 

.—.e—c!* 

056 • 
857. 
053 . 
059 . 
860. 
061. 
062. 
863. 
w64 • 
065 . 
b>66 . 
067. 
S68 . 

069 . 

070. 
©7 1 . 
072 . 
y / 3 . 

874. 

875. 

876. 
077. 
870. 
079, 
880 . 
oc* 1 ■ 


DO 554 J-1,5 
DO 555 K’»*l»5 

WRITE<6. 67) H3( I . Jv » ) . HS’CI , J, KS 2) , H3( I , K, 3) , H3( I » J, K, 4) 
1,H3(I, J,K,5) 

555 CONTINUE 
WRITE <6. 63) 

554 CONTINUE 

IF<I.EQ.2.CR.I.Eg.4) WRIT|<6.65) nDiriNAL PPC^ 

IF( I.EQ, l.OR. I.E0.3) WRITE(6f69) ORIGINAL 

OF POOR QUAUTY 

WRITE<6,S4S) 

345 FORMAT(-' 13 ’) 

DO 556 I«l»5 . 

DO 557 J-1,5 
DO 558 K“l»5 

WRITE <6, 67) XI3(I^J,K, 1),XI3(I, J,K,2)-,XI3{I, J,K,3) 

1,XI3<I, J,K,4) ,XL3CI, J,K,5) 

558 CONTINUE 
WRITE <6, 68) 

557 CONTINUE 

IF(I.EQ.2.0R, I.EQ.4) WRITE(6,65) 
iFd.EQ. l.OR. I.EQ.3) WRITE(6,69) 

556 CONTINUE • 

WRITE<6,65) 

WRITE (6, 846) 

846 FORHAT( ' R3d 
DO 559 I»l,5 
DO 560 J«l,5 
DO 061 K«l,5 

WRITE<6, 67) R3 a , J, 1 ) , R3( I , J, K', 2 ) , R3<I , J, K', 3) , R3U , J, K, 4) 
1,R3<I, J,K,5) 

561 CONTINUE • • 

WRITE(6,6S) 

560 CONTINUE 

IF<I.EQ.2.0R. r.EQ.4) WFjiTE(6,65) 

IFd.EQ. l.OR. I.EQ.3) WRITER 6, 69) 

559 CONTINUE 
WRITE(6,65) 

WRITE (6, 847) 

847 FORMAT<-' S3') 

DO 062 I“l,5 

'• DO 563 J*i,5 
DO 564 K«l,5 

WRITE<6,-67) S3< I, J, K, 1 ) , S3< I , J, K', 2) , 83d , J, F-o 3) , 03(1 , J, K, 4) 
l,S3d,J,K,S) 

564 CONTINUE 
WRITE(6,63) 

563 CONTINUE 

IFd.EQ. 2. OR. I.EQ.4) WRITE (6, 65) 

IFd.EQ. l.OR. I.EQ.3) WRITEC6,69) 

562 CONTINUE 
WRITE (6, 65) 

WRITE (6, 840) 

848 FORMAT ( ■' A4 ' ) 

DO 565 1—1,5 
DO 566 J«l,5 
DO 567 K-1,5 

WRITE(6,67) A4d, J,K, 1) , A4 d , J, K, 2) , A4 d , J, K, 3) , A4 d , J, K, 4) 
i,A4d,J,K,5) 

567 CONTINUE 
WRITE (6, 68) 

566 CONTINUE 

IFd.EQ.2.0R. I.EQ.4) WRITE<6,65) 

IFd.EQ. l.OR. I.EQ.3) WRITE (6, 69) 

565 CONTINUE 


CO A 
OO-H* • 


WRITE(6,65) 



WRITE (6, 849) 


849 

FORI'IAT ( •^ B4 ' ) 

iz>*2»7 m 


DO 568 1-1,5 

O C* O 

jpOw I* 


DO 569 J— 1,5 

889. * 


no 570 K-1,5 

890 . 


WRITE (6, 67) B4d 

891 . 


l,B4d, J,K,5) 

892. 

570 

CONTINUE 

i”'9'c> • 


WRITE (6, 68) 


y V 4' * 

569 CONTINUE 

895 . 

IFd.EQ. 2. OR. I.EQ 

896. 

IFd.EQ. l.OR. I.EQ 

897 . 

568 CONTINUE 

898. 

WRITE(6,65) 

899. 

WRITE (6, 850) 


-i ■ 


'500. 

'501. 

'502. 

90S. 

•504. 

905. 

90<^.. 

907. 

90S. 

909. 

910. 

911. 


934. 

935. 


ommmi b-CG H 

S50 FORMAT { ' 04 *) OF POOR QUAiliv 

DO 571 I«l»5 
DO 572 Jw*l,5 
DO 573 K»l»5 

WRIT|(6,&7) C4(It J,f:,l),C4<I» J»K.2) ,C4(Ii J.K.2),C4<I, JiK,4) 
I ♦C4( I» J*k»5). 

573 CONTINUE 
WRITE<6»4.8) 

572 CONTINUE 

IF<I.EQ.2.0R. I.E0.4) WRITE(&,63) 

I?,U;EQ.1.0R.I.EQ.3) WRITE<6,69) 

571 CONTINUE 
WRITE<6*35) 

WRITE(6,351 ) 

351 FORMAT (r D41> 


DO 576 K»li5 

WRITE<6,67) D4(I, J,K, 1)»D4<It J,K»2),D4a, JiK,3),D4(Iv J,K,4). 
1D4< I, JiK.5) 

576 CONTINUE 
WRITE(6»68) 

575 CONTINUE 

IF<I.EQ.2.0R. I.EQ.4) WRITE(6,65) 

IFa.EQ. l.OR. I.EQ.3) WRITE(6,69) 

574 CONTINUE 
WRITE(6,65) 

WRITE (6, 852) 

S52 FORMAT<-* E4 * ) 

DO 577 I»l,5 
DO 578 J^lvS 
DO 579 K='l->5 

WRITE<6,67) E4(I, J,KM) ,E4a, J,K.2) ,E4<I. J.K73) ,E4a«U»K74) 

1 » E4( I » f<7 5) 

579 CONTINUE 


936. 

578 

CONTINUE 

o /■ ■ 


I h ( 1 . EQ . 2 . OR . 

938. 


IFd.EQ. l.OR. 

939. 

577 

CONTINUE 

940. 


WRITE (6, 65) 

941 . 


WRITE (6, 853) 

942. 

•b.*oo 

FORMAT (•" F4‘*) 

943. 


DO 580 I = 1 7 5 

944. 


DO 581 J=l,5 

945. 


DO 582 K-175 

946 . 


WRITE ( 67 67) F 

•547. 


1,F4(I7 J,K,5) 

9 4 8 . 

502 

CONTINUE 

949. 


WRITE ( 6 , 68 ) 

950. 

5-31 

CONTINUE 

■551. 


IFd.EQ. 2. OR. 

952. 


IF( I .EQ. l.OR. 

953. 

580 

CONTINUE 

954. 


WRITE (6, 65) 

.r/c;cr 


WRITE <6, 854) 

956. 

854 

FORMAT < " G4-') 

'557. 


DO 583 I«l75 

95’8 . 


DO 584 J-1,5 

959. 


DO 585 K~l75 

960. 


WRITE <6, 67) G 

96 i- 


L,G4(l7 J 7 K 75 ) 

962- 

585 

CONTINUE 

•563. 


WRITE ( 67 68 ) 

'564 . 

584 

CONTINUE 


965. 


IF(I.EQ.2.0R. I.EQ 

966. 


IFCI.EQ. l.OR. I.EQ 

•567 . 

t^\ !..( W* 

CONTINUE 

•568. 


WRITE ( 67 65) 

969 . 


WRITE ( 67 855) 

970. 

Ocr.r:: 

Im' w w 

FORMAT (•' 1 4-') 

971 . 


DO 586 1=175 

972. 


DO 587 J=i,5 

973 . 


DO 5'c'S K=1 7 5 

974. 


WRITE(6767) XI4<I 

975. 


i,xi4a,j7K, 4 ) 7 X 14 

976. 

5'o‘S 

CONTINUE 

977. 


WR I TE ( 6 7 6w ) 

9 i • 

5S7 

CONTINUE 

•579. 


IF< T.EQ.2.0R. I.EQ 

980 . 


I F ( I . EQ . i . OR . I . EQ 

981 . 

586 

CONTINUE 


9S2. 

983, 

9'<i4, 

985. 

986. 

987. 

988. 

989. 
,990. 

991. 

992. 

993. 
,994. 
'995. 

996. 

997. 

998. 

999. 
1000. 
1001. 
1002 . 
,1003. 
1004. 

: 1005. 

1006. 

1007. 

1008. 
1009. 

r 1010. 
* 1011 . 
1012 . 

1013. 

1014. 

1015. 

1016. 

1017. 

1018. 

1019. 

1020. 
1021. 
1022. 

1023. 

1024. 

1025. 

1026. 

1027. 

1028. 
f 1029- 

1030. 

* 1031. 

1 032 . 

1033. 

1034. 

. 1035. 

^ 1036, 

1037. 

1038. 

1039. 

: 1040. 

1 1041. 

I 1042. 

5 1043. 

! 1044. 

I 1045. 
I 1046. 
g 1047. 
i 1048. 
i 1049. 

1 1050. 

i 1051. 
i 1 052 . 

^ 1053. 

i 1 054 . 

1055. 

I 1 056 . 
i 1057. 

I 1058. 
i 1059. 
i 1060. 

I 1061, 
1062. 

I lUC*C*a 


WRItIJIiIsc.) of poor QUiAUTV 

856 FORM AT (-^ L4‘' ) 

DO 589 I=*l,5 
DO 590 Jal,5 
DO 591 K«l»5 

, WRITE(6, 67) XL4 ( I , J, K, 1 ) » XL4 ( 1 •, <J. K% 2) » XL4 ( I , J, K. 3) , XL4 ( I , J, K-* 4) 
1 , XL4< It J,K, 5) 

591 CONTINUE 
WRITE(6t 68) 

590 CONTINUE' 

IF( I.EQ.2.0R. I.EQ.4) WRITE(6,65) 

IFCI.EQ. l.OR. I‘.EQ.3) WRITE (6, 69) 

589 CONTINUE 
WRITE <6t 65) 

^ WRITE (6, 857) 

857 FORMAT <*' Q4-*‘) 

DO 592 I~l,5 
DO 593 J«l,5 
DO 594 K=*l,5 

WRITE(6t 67) C^4(I , J; K. 1 ) , 04(1 , J, Kt 2) , Q4 ( I , Ji K, 3) , Q4< 1 1 J, Kt 4) 
ltW4CI.UtK, 5) 

594 CONTINUE 
WRITE(6,6S) 

593 CONTINUE 

IF<I.EQ.2.0R. I.EQ.4) WRITE(6,65) 

I F ( I . EQ . 1 . OR . I . EQ . 3 ) WR I TE ( 6 , 69 ) 

592 CONTINUE 
WRITE (6, 65) 

WRITE (6, 858) 

SSS FORMAT R4-') • 

DO 595 1=1,5 
DO 596 J=i,5 
DO 597 K-1,5 

WRITE(6,67) R4(I, J,K, 1) ,R4(I, J,K,2) ,R4< I , J,K,3) ,R4(I, J,K.,4) 
ltR4a,J,K,5) 

597 CONTINUE 
WRITE <6, 68) 

596 CONTINUE 

IF<I.EQ.2.0R. I.EQ.4) WRITE(6,65) 

IFd.EQ. l.OR. I.EQ.3) WRITE(6,69) 

595 CONTINUE 
WRITE (6, 65) 

WRITE C 6, 859) 

859 FORMAT (•' V4"’) 

DO 598 1=1,5 
DO 599 J=l,5 
DO 600 K=l,5 

WR I TE ( 6 , 67 ) < I , J , f*: , 1 ) , V'4 ( I , J , K: , 2 ) , V4 a , J , K , 3 ) > V4 ( I , J , K , 4 ) 

1, V4< I, J,K,5) 

600 CONTINUE 

WRITE<6,68) 

599 CONTINUE 

IF(I.EQ.2.0R. I.EQ. 4) WRITE (6, 65) 

IFd.EQ. l.OR. I.EQ.3) WRITE(6,69) 

598 CONTINUE 
499 STOP 

END 

SLIBROLIT I NE FC3 ( C3 , I , ^1 , K , L ) 

IMPLICIT REALir8(A-H,0-Z) 

D I MElvIS I Oivl C 1- < I'OO / , C2 d 00 ) , C4 ( 1 00 ) 

CALL FI3P<C1., II, J) 

CALL FIP(C2, I2,K) 

CALL PMPY ( C4 , 1 3 , C 1 , 1 1 , C2 ,12) 

CALL FIP(C2,I2,L) 

CALL PMPY (C 1 , 1 1 , C2 , 1 2 , C4 , 1 3 ) 

CALL FIP(C2, 12, I ) 

CALL Pf'IP Y ( C4 , 1 3 , C 1 , 1 1 , C2 , 1 2 ) 

CALL PINT<Ci, I1,C4, 13) 

X=0. DO 
DO 1 N=ldl 
X=X-C1 <N) 

1 CONTINUE 

XX= ( 2*1 “1 ) * ( 2*J—1 ) * < 2*K— 1 ) * ( 2*L— 1 ) 

I F ( DABS ( X ) . LT . 1 . D-7 ) X=0 . DO 
C3=X*DSQRT ( XX ) /2. DO 
RETURN 
END 

SUBROUT I NE FD3 ( D3 , I , J , K , L ) 

I MPL I C I T REALMS ( A-H , 0- Z ) 

D I MENS I ON Old 00 ) , C2 ( 1 00 ) , C3 ( 1 00 ) 

CALL FIPP(C1,I1,J) 


1064. 

1065. 

1 066 . 
1067. 
106S. 

1069. 

1070. 

1071. 

1072. 

1073. 

1074. 

1075. 

1076. 

1077. 
107S. 

1079. 

1080. 
1081. 
1082. 

1083. 

1084. 

1085. 

1086. 
1087. 

loss. 

1089. 

1 090 . 

1091 . 

1092. 

1093. 

1094. 

1095. 
it 096. 
1097. 
109S. 
1099. 
i 100. 
1101, 
1102. 

1103. 

1104. 

1105. 

1106. 

1107. 

1 108. 

1109. 

1110. 
1111 . 
1112. 

1113. 

1114. 

1115. 

1116. 
1117. 

Ills. 

1119. 

1120. 
1121. 
i 122. 

1 123. 

1124. 

1125. 

1126. 

1127. 

1128. 

1129. 

1 1 30 . 

1 131 . 

1132. 
1 loo. 
1,134. 

1135. 

1136. 

1 1 37 . 

1138. 

1139. 

1140. 

1141. 

1142. 

1143. 

1144. 

1145. 


PA<C2, 12. i) 

PHPY<C3. 13, Cl. II, C2, 12) 
PDERICI. I1,C3,I3) 
FIP(C.2, 12,1) 

PI'IPY(C3, 13, Cl, II, C2, 12) 
PINKCl, I1,C3, 13) 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL . 

X-0. DO 
DO 1 1nI~1,I1 
X'~X+CKN) 

CONTINUE 

XX^^Cl’Hfl-l )sH2-iM“l ) 
IF(DABS<X) .LT. l.D-7) X=O.DO 
D3:=3. D04rX-J^DSQRT ( XX ) /2. DO 
RETURN 
^ D 


0? 


END 

SUB 



C3(100),C4<i00) 

FIP(C1,-I1,K) ‘ ‘ “ 

FIP(C2, 12, L) 

PMPY(C3, L3,.C1 , I1,C2, 12) 

- “ -- 13) 

12 ) 


PDER(C2, 12, Co, 

PDER(C1‘, ri,C2, 

FIP<C2, 12,1) 

FIP(C3, 13, J) 

PHPY(C4, 14, C2, 

PHPY<C2, 12, Cl, II, C4, 14) 
PINT(C1, I1,C2, 12) 


12, Uc! , 1 3 ) 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL , 

x=o. po 

DO 1 N«1,I1 
X^X-CKN) 

CONTINUE 

XX=<2-{fI~i H^(2irJ-l )4^<2*K-1 )#<2H^L-1 ) 
I F ( DABS ( X ) . LT . 1 . D-7 ) X-0 . DO 
E3-X,^DS0RT(XX) 

RETURN 

END 

SLIBROLIT I NE FF3 ( F3 , I , J , K , L ) 

I MPL I C I T REAL^^S A-H , O- Z ) 

D I MEInIS I ON C 1 ( 1 00 ) , 02 < 1 00 ) , C3 ( 1 00 ) 
CALL FIP(Ci,Il,K) 

- FIP<C2,I2,L) 

PHPY ( C3, : 3 , Cl , 1 1 , C2, 12 ) 
FIPP(C2, 12, *J) 

PMPY(C1, 11,’C2, 12, C3, 13) 
PDER(C2, 1 2, Cl, ID 
FIP(C3, 13, I ) 

PNPYICI, I1,C2, 12,03,13) 
PINT<C2, IINT.Cl, II ) 


CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 


CALL . . 

X^^O.DO 
DO 1 N=1,IINT 
X-=X-C2(N) 

CONTINUE 

XX=(2'i<'I — 1 )•)<■( 2'ffJ— 1 ) •«"( 2i^K~ 1 ) -Sc < 2*L— 1 ) 
I F ( DABS ( X ) . LT . 1 . D-7 ) X«0 . DO 
F3=X->^DSQRT<XX) 

RETURN • * 

END 

SUBROUT I NE FG3 ( 03 , I , J , K , L ) 

IMPLICIT REAL4fS(A-H,0-Z) 

D I MENS I OIM C 1 ( 1 00 ) , C2 ( 1 00 ) , C3 ( 1 00 ) 
CALL FIP(C1, II, I ) 

FIP(C2, 12, J) 

PMPY<C3, I3,Ci, I1,C2, 12) 

PA<C2, 12,2) 

PMPY<C1, I1,C2, 12, C3, 13) 


CALL 

CALL 

CALL 

CALL 

CALL 


PINT\'C2, 12,C1, ID 
12 ^ 


X-0. DO 
DO 1 N-1, 
X-X-C2(N) 
CONTINUE 
XX-<2*I-D<r(2-ftJ 
IF(DABS<X) .LT. 1 
G3— X'S'DSQRT ( XX ) 
RETURN 
END 


- 1 ) 
D-7 ) 


X=0. DO 


SLIBROLIT I NE FH3 ( H3 , I , ^1 , K , L ) 

I MPL I C I T RE AL-}f S ( h~H , 0- Z ) 

D I i'lENS I ON C 1 ( 1 00 ) , C2 ( 1 00 ) , 03 ( 

.■►•VI I «f* #>■. J J ^1 V 


CALL FIPOCl, I.I , I ) 

Lt ALL F i. P ( 1J2 , 1 2 , J ) 
CALL PMPY(C3, I.J,C1 


100) , C4( 100) 


IDC2, 12) 





« . *... •» # i. i-t 








CAUL PINT^Ci, Ii,C3, IJ) 

U47. 


CALL FIP<C2,I2,K) 

1148. 


CALL FIP<C4,I4.L) 

1149, 


CALL PI'IP Y ( C3 , 13 , C4 , 1 4 . C2 » 1 2 ) 

1150. 


CALL PINT(C2, I2tC3, 13) 

1151., 


CALL PhIPY < C3 , 1 3 7 C 1 , 1 1 > C2 ,12) 

1152. ■ 


CALL PINroSl, I1,C3, 13) 

1 1 53 . 


X«0 . DO 

1,154. 


DO 1 N=1 , li 

1155. 


X«X+C1 (N) 

1156. 

1 

CONTINUE 

1157. 


XX-(24fI-i )#(2^^J-1 )^^(2^K-i)*(2•^^L-l ) 

1153. 


I F < DABS < X ) . LT . 1 . D-7 ) X~0 . DO 

ri59. 


H3-X-i^DSQRT(XX) 

1160. 


RETURN 

1161. 


END 

1162. 


SUBROUT I HE F 13 ( X I 3 , I , J , K , L ) 

1 1 63 . 


IMPLICIT REAL^^S(A“H,0~Z) 

1164. 


D I MENS I ON C 1 ( 1 00 ) , C2 ( 1 00 ) , C3 ( 1 00 ) 

1 165. 


CALL FIP<C1, 11, I ) 

1166. 


CALL FIP(C3,I3,J) 

1167. 


CALL PMP Y < C2 , I U , C 1 , 1 1 , C3 ,13) 

1168. 


CALL FIP(C3,I3,K) 

1169. 


CALL Pi'iP Y ( C 1 , I UfC , C3 ,13, C2 , I J ) 

1170. 


CALL FIP(C3,I3,L) 

1171. 


CALL PMP Y ( C2 , I JKL , C 1 , I UK , C3 ,13) 

1172. 


CALL PA(C3, IPA,i) 

1173. 


CALL PMPYCCl, ri,C3, IPA,C2, IJKL) 

1174. 


CALL PINT0;:2, IINT,C1 , 11 ) 

1175. 


X-0. DO 

1176. 


DO 1 N=i,IINT 

1177. 


X-X-C2<N) 

1173. 

1 

CONTINUE 

ri79. 


XX=(2^^I-1)^( 2^J - 1 ) # ( 2*K- 1)^< 2-»L“ 1 ) 

1 1 SO . 


I F ( DABS ( X ) . LT . 1 . D-7 ) X-0 . DO 

1131. 


XI3-X^^DSQRT(XX) 

1132. 


RETURN 

1133. 


END 

1134. 


SUBROUT I ixlE F J3 < X J3 , 1 , J , K , L ) 

1135. 


IMPLICIT REALMS <A~H, 0-2) 

1136. 


D I i'lENS I ON C 1( 1 00 ) , C2 ( 1 00 ) , C3 ( 1 00 ) 

1187. 


CALL FIP<C1, 11, I) 

1 1 >::I3 . 


CALL FIP(C2, 12, J) 

1139. 


CALL PMP Y ( C3 , I 3 , C 1 , I 1 , C2 , I 2 ) 

1190. 


CALL PA<C2, 12,3)' 

1191. 


CALL P1-1P Y ( C 1 , 1 1 , C2 ,12, C3 ,13) 

1192. 


CALL PINT (C2, 12, Cl, 11 ) 

1193. 


X-O.DO 

1 194. 


DO 1 N-1,I2 

1 1 95 . 


X=X-C2<N) 

1196. 

1 

CONTINUE 

1197. 


XX- ( 2^^ I-i )■)(•( 2-JtJ-l ) 

1 1 98 .• 


I F ( D AB8l( X ) . LT .. 1 . D-7 ) X-0 . DO 

1 1 99 . 


XJ3-X*DSQRT(XX) 

1200. 


RETURN 

1201. 


END 

X ■ 


SUBROUT I NE F03 ( 03 , I , J , K , L ) 

1203. 


I MF'L I CT T REAL^fS ( A-H , 0-Z ) 

1204. 


D I MENS ION C 1 < 1 00 ) , C2 ( 1 00 ) , C3 v' 1 0 0 ) 

1205. 


CALL FIP(C1, 11, J) 

1 ■ 


CALL FIP(C2,I2,K) 

1207. 


CALL FtiP Y ( C3 , 1 3 , C 1 , 1 1., C2 , 1 2 ) 

1 203 . 


CALL PA (C2, 12,5) 

1 209 . 


CALL PMP Y ( C 1 , 1 1 , C2 , 1 2 7 C3 ,13) 

1210. 


CALL PINTCC2,I2,Cl,Ti) 

121 _J_. 


X-0. DO 



DO 1 N=1,I2 

1213. 


X-X+C2(N) 

1214. 

1 

CONTINUE 

1215. 


C2( 1 )==C2< 1 )-X 

1216. 


CALL FI P( 03,13,1) 

1217. 


CALL PMP Y (C 1 , I 1 , 02 , I 2 , C3 ,13) 

1213. 


CALL PINT(C2, I2,Ci, ID 

1219. 


X=O.DO 

i. . 


DO 2 N-1,I2 

1 1 

4r .1. • 


X-X-C2<N) 

1 

J. « 


CONTINUE 

1 223 >. 


X X - ( 2 ^ I — i ) -fr ( 2-J'" J— !)•!<•( 2'>K- 1 ) 

1224. 


I F ( DABS ( X ) . LT . 1 . D-7 ) X =0 . DO 

1 


03-X-!^DSQRT(XX) 



RETLiRI\| 

1227. 


EiNiD 


OftlGlNftlL PAf :-7 .»□ 

OF POOR QUAU i'Y 


I 


h 


}| 

•1 






1223. 

1229. 

1230. 

1231. 

1232. 

1233. 

1234. 

1 235 . 
J236. 

X At *Zi/ m 
X Z C* Cl II 

1239. 

4240. 

1241. 

1242. 
12431. 

1244. 

1245. 

1246. 

1247. 
1 24*”i . 
1249. 


1250. 

1251. 

1 252 . 

1253. 

1254. 


1 .»:l.'5^( . 

1 257 . 

1258. 

1259. 
126.0. 
1261. 
1262. 
1263. 
»1264. 

1265. 

1266. 
1267. 
1263. 

1269. 

1270. 

1271. 

1272. 

1273. 

1274. 

1275. 

1276. 

1277. 

1278. 

1279. 

1230. 

1231 . 


1 x'l:i4 ■ 


1236. 

1237. 


12 


1 !i't! V • 

1290. 

1291 . 

1292. 

1293. 

1 294 . 

1295. 

1296. 

1297. 


1293. 

1*299. 

1 300 . 

1301 . 

1302. 
It303. 
1304. 
1 >.z!05 . 

1306. 

1307. 

1303. 
1309. 


SUBROUT I HE FQ3 < 03 , 1 , J , K , L) 

IMPLICIT REALMS <A~H,0-Z) 

D I MENS I ON CHI 00 ) , C2 U 00 ) , C3 < 100) 

CALL FIP(CHIHK) 

CALL PA0::2, I2..5) 

CALL PMPY ( C3 » 1 3 , .C 1 , 1 1, C2 , 1 2 ) 

CALL PINT(Ci, ir,C3, 13) 

XsO.DO 
DO 1 N=1,I1 
X^-X+CHN) 

CONTINUE 
CH1)«C1(1)'-X*- ' 

CALL FIP{C2,I2,J) 

CALL PMPY < C3 , 1 3 , 02 , 1 2 , C 1 , 1 1 ) 

CALL FI P (02, 12, I ) 

l:ALL PMPY (01,11,02,12, C3 ,13) 

CALL PINT(C2, 12,01, II ) 

X-O.DO 
DO 3 N-1,I2 
X«X~C2(N) 

CONTINUE 

XX=.(2*I~1 )-»(2-i^J~l )-i^(2*K-l ) 

IF(DABS(X) .LT. l.D-7) X=O.DO 
Q3=X*DSQRT(XX) 

RETURN 

END 

SLIBROUT I NE FS3 (33,1, .J , K , L ) 

IMPLICIT REALMS (A-H,0-Z) 

D I MENS I OIM C 1 ( 1 00 ) , C2 ( 1 00 ) , C3 ( 1 00 ) 

CALL FIP(C1,I1,I) 

CALL FIP(C2,‘;JI, J) ■ 

CALL PMP Y ( C3 , I J , C 1 , I i , C2 , J 1 ) 

CALL P I NT ( C2 , 1- i , 03 , I J ) 

CALL FI(C3,L) 

CALL PMPY ( C 1 , I JL , 02 , I 1 , C3 , L ) 

CALL FIP(C3,I1,K) 

CALL PMl-‘ Y ( C2 , I JKL , C 1 , 1 Jl- , C3 , 1 1 ) . 

CALL PA ( IJ3 , I PA , 4 ) 

CALL PI'iPY ( Cl , 1 1 , C2 , I JKL , C3 , I PA ) 

CALL PINT(C2, IINT,C1, II ) 

X-O.DO 

DO 1 N=1,IINT 
X=X+C2(N) 

CONTINUE 

XX^‘(2*I-1 )#(24cJ-l )-^(2*K-l )-it(2#L-l ) 
IF(DABS(X).LT.l.D-7) X^O.DO 
S3=^X-ifDSQRT(XX) 

RETURN 

END 

SUBROUT I NE FF4 ( F4 , I , J , K , L ) 

IMPLICIT REAL^^S(A-H,0“Z) 

D I MENS I DN C 1 ( 1 00 ) , C2 ( 1 00 ) , C:3 ( 1 00 ) , C4 • i 00 ) 
CALL FIP(Ci,Il,J) 

CALL FI(C2,K) 

CALL PI*-|P Y ( C3 , JK ,.C 1 , 1 1 , C2 , K ) 

CALL FI(Ci,L) 

CALL PMPY ( C2 , JKL , C3 , Jh:! , C 1 , L ) 

CALL PI NT ( C: 1 , 1 1 , C2 , JKL ) 

X-O.DO 
DO 1 N«i,Il 
X-X+Cl (N) 

CONTINUE 
Cl(i)~i::l(l)-X 
CALL FIP(C3,I3,I) 

CALL PMPY ( C2 ,12, C3 , 1 3 , iC 1 , 1 1) 

CALL PINT(C3, I3,C2, 12) 

X-O.DO 
DO 2 N=1,I3 
X-X-C3(N) 

CONTINUE 

X X - ( 2* I - 1 ) * ( 2-ir J-- 1 ) ( 2*K- 1 ) * ( 2'«-L-* 1 ) 
IF(DABS(X) .LT. l.D-7) X-O.DO 
F4^X#DSQRT(XX) 

RETURN 

END 

SLIBROUT I NE FG4 ( G 4 , I , J , K , L ) 

IMPLICIT REALMS (A-H,0-Z) 

D I hlENS I i-iN C 1 ( 1 00 ) , C2 ( 1 00 ) , C3 ( i 00 ) 

CALL FIP(C2, I2,K) 

CALL FIP(C1,IHL) 

CALL PMPY ( C3 , KL , C 1 , I 1 , C2 ,12) 

CALL FI ( i_.'i , J ) 


OF 






i t 





1 >4 rr « t > ;• 


1310. 

1311. 

< T* 1 O 
X w* A X* • 

131 3< . 

1314. 

1315. 

1316. 

1317. 
131S. 

1319. 

1 320 . 

1321 . 

1322. 

1323. 

1324. 

1 'Ti 

Issa!: 

1 327 . 

•I ••»oc* 

X • 

1329. 

1330. 
1 3 3 1 . 

J. OO.U • 

1333. 

1334. 

1 O-t'Cr. 

1 336 . 

1 337 . 
1 333 . 

1339. 

1340. 
1341 . 

1342. 

1343. 

1 344 . 

1345. 
"1346. 
1347. 
1 343 . 

1349. 

1350. 

1 35 1 a 

1 352 • 

X SbI Sm* ■ 

1354. 

1355. 

1356. 
1 357 . 

1 35>;Zf a 

1359 . 

1 360 . 

1361. 

1 362 . 

1 36i3! a 

1364. 

1365. 

1366. 

1367. 

1 %i'6*o w 

1369. 

1370. 

1371. 

1372. 

1373. 

1374. 

1375. 

1376. 

1377. 

i ■ziyci 

1379. 

1.380. 

1381 . 

1382. 

1383. 
i;3S4. 
1385. 

1 386< a 

1387. 

1388. 

1 389 . 

1390. 

1391. 


CALL PHPY < C2 , .JKL , Cl , J , C3 1 K'L ) 

CALL PA<C1, IPA,4) 

CALL Pi-tPY ( C3 , 1 3 7 C2 , JKL , C 1 t I P A ) 

CALL PINT < Cl 7 II, C3, 13) 

X-O.DO 
DO 1 N-1-, II 
X~X+CKN) 

CONTINUE 
Ci(l ):^C:l (1 )-X 
CALL FIP(C3, 13, 1.) 

CALL PMPY(C2, 12, C3, 13,01, II ) 

CALL P I NT < C3 7 1 3, C2 7 1 2 ) 

X~0.D0 
DO 2 N~1,I3 
X;fX-C3(N) 

xS«Ti^t¥-l ) ( 2* J-,1 ) ^ ( 2^fK“ 1 ) ( 2^^L- 1 > 
I F ( DABS < X ) . LT . 1 . D-7 ) X«0 . DO 
G4«X^^DSQRT(XX) 

RETURN 

END 

SUBROUT I NE FL4 ( XL4 , I , J , K , L ) 

I MPL I C I T REALMS ( A-H , 0-Z ) 

D I MENS ION C 1 < 1 00 ) , C2 < 1 00 ) , C3 ( 1 00 ) 
CALL FIP(Cl7lK,K) 

CALL FIP(C27lL,L) 

CALL PMPY < C3 , 1 1 , Cl , I K , C2 , I L) 

CALL PINT(C17 IINTyCS, II ) 

CALL FI(C2,J) 

CALL PMPY ( C3 , 13 , C2 7 J , C 1 , 1 1 NT ) 

CALL PINTICI, 11,03, 13) 

X~O.DO 
DO 1 14=1,11 
X«X+C1 (N) 

CONTINUE 

Ci<l)=Cl(l)-X - ■ 

CALL FIP(e2,127l) 

CALL PMPY ( C3 ,13, C2 ,12,01,11) 

CALL P INT ( C2 7 1 1 NT , C3 ,13) 

X=O.DO 

DO 2 N=1,IINT 
X=X~C2<N) 

CONTINUE 

XX= ( 2'!<'I“1 ) # ( 2'M'J—l )■<<•( 2-M-K~l ) w (2’W'L—l ) 
I F ( DABS ( X ) . LT . 1 . D-7 ) X =0 . DO 
XL4=X-i^DSQRT(XX) 

RETURN 

END 

SUBROUT I NE Fhl4 ( XM4 , I , J , K , L ) 

I MPL I C I T REAL^Kr! ( A-H , O-Z ) 

D I MENS ION Old 00 ) , C2 < 1 00 ) , C3 ( 1 00 ) 
CALL FI(C2,J) 

CALL PINT(C1 , II ,C2, J) 

X=O.DO 
DO 1 N=1,I1 
X=X+C1(N) 

CONTINUE 

CK1)=C1(1)-X 

CALL PINT<C2, I2,C1, II ) 

CALL FI(C3,K) 

CALL PHPY ( C 1 , 1 1 , C2 ,12, C3 , K ) 

CALL PINT (C2, 12, Cl, II ) 

X=0.D0 

DO 2 N=1,I2 

X=X+C2<N) 

CONTINUE 

C2 ( 1 ) =02 (1 ) -X 

CALL F IP (03, 13, I ) 

CALL F'I4F‘Y ( Cl , I i , C2 , 1 2 , C3 , 1 3 ) 

CALL P I i'lT < C2 7 1 2 7 C i , 1 1 ) 

X=0. DO 

D U C' N = 1 , 1 2 

X=X-C2(N) 

CONTINUE 

X X= < 2^^ I - 1 ) J- 1 ) 4^ ( 2^rK- 1 ) 

I F ( DABS < X ) . LT . 1 . D-7 ) X=0 . DO 
XM4=X'»DSQRT(XX) 

RETURN 

END 

SUBROUT I NE FN4 ( XN4 , I , J , K , L ) 

IMPL I Cl T REAL^tS ( A-H, O-Z ) 

D I MENS I UN C 1(1 00 ) , C2 ( 100) , C3 ( 1 00 ) 
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1392. 

I ■t«oo 
X i/w* • 

1394. 

1395. 

1396. 

1397 . 

1 C'C/O 
X C< !•* ■ 

1399. 

1400. 

1401. 

1402. 

1403. 

1404. 

1405. 

1406. 

1407. 
140S. 

1409. 

1410. 

1411. 

1412. 

1413. 

1414. 

1415. 

1416. 

1417. 
1413. 

1419. 

1 420 . 

1421 . 

1 422 . 

1423. 

1424. 

1425. 

1426. 

1427. 
i42S. 

1 429 . 

1430. 

1431 . 
1432- 

1433. 

1 434 . 

1435. 
143 6 . 

1437. 

1 438 . 

1439. 

1440. 

1441 . 

1442. 

1443. 

1444. 

1445. 

1446. 

1447. 

1448. 

1449. 

1450. 

1451 . 

1452. 

1453. 

1454. 

1455. 

1456. 

1457. 
1 45fc! . 

1459. 

1460. 
H61 . 
1,462. 

1463. 

1464. 

1465. 
1,466. 
1467. 
1463. 
1 469 • 

1470. 

1471. 

1472. 
1 4 / 3 . 


CALL PA(C2.I2,1> 

CALL PINT (Cl. II, C2i 12) 

CALL FI(C2.J) 

CALL PMPY(C3,I3.C1, I1,C2, J) 

CALL PINT(Ci, I1,C3, 13) 

X-O.DO 
DO 1 N=1,I1 
X«X+Ci(N) 

CONTINUE 
C1<1)=C1(1)-X 
CALL FIP(C2. 12,1) 

CALL PHPY(C3, 13,01,11,02, 12) 

CALL PINT(C1, I1,C3, 13) 

XO.DO 
DO 3 N-1,I1 
X-X-CKN) 

CONTINUE 

XX=(2*I-1)#(2#J-1) 

IF(DABS(X) .LT. l.D-7) X=O.DO 
XN4=X*DSQRT<XX) • 

RETURN 

END 

SUBROUT I NE FQ4 ( Q4 , I , J , K , L ) 

I MPL I C I T REAL-1^8 ( A~H , 0-Z ) 

D I MENS I ON C 1 ( 1 00 ) , 02 ( 1 00 ) , 03 ( i 00 ) , 
CALL FIP(C2, ID1,I) 

CALL FIP(C3, ID2, J) 

CALL PMPY ( C 1 , I P 1 , 02 , I D 1 , 03 , I D2 ) 
CALL FIP(C3, ID1,K) 

CALL FIPP(C2, ID3,L) 

CALL Pl'iPY < 04 , I D4 , 03 , I D 1 , C2 , I D3 ) 
CALL PDER(C2,ID2,C4,ID4) 

CALL PMPY(C3, IP2,C2, ID2,C1, IP! ) 
CALL PINT(C1 , IINT,C3, IP2) 

X-O.DO 

DO 1 N-1,IINT 
X=X“C1 (N) 

CONTINUE 

XX== < 2*1-1 )*( 2-}fJ-i )*( 2#K-1 )’5t ( 2-»L-l ) 
IF ( DABS(X) .LT. l.D-7) X==0.D0 
Q4=X*DSQRT(XX) 

RETURN 

END 

SUBROUTINE FR4 < R4 , 1 , J , K , L ) 

IMPLICIT REALMS (A-H, 0-Z) 

D I I-IENS I Cllsl C 1 ( 1 00 ) , 02 ( 1 00 ) , 03 ( 1 00 ) , 
CALL FIP(C2, IDl, I ) 

CALL FIP(C3, ID2, J) 

CALL PMPY ( C 1 , 1 P 1 , 02 , I D 1 , 03 , 1 D2 ) 
CALL FIPP(C:2,K2,K) 

CALL FIPP(C3,L2,L) 

CALL PI'IPY ( C4 , I P2 , C2 , K2, C3 . L2 ) 

CALL PMPY < C2 , I P , C 1 , 1 P 1 , C4 , I P2 ) 

CALL P I NT ( Cl 7 I INT , C2 , I P ) 

X=0.D0 

DO 1 1,1 I NT 

X-X-Ci(N) 

CONTINUE 

XX==(2*I-i )*<2*J-1 )*<2*N-1 )*(2*L-1 ) 
I F ( DABS ( X ) . LT . i . D-7 ) X-0 . DO 
R4-X*DSQRT(XX) 

RETURI^1 

END 

SUBROUT I NE FT 4 ( T4 , I , J , K , L ) 

I MPL I C I T REALMS ( A-H , G-Z ) 

D I hlENS I ON C 1 ( 1 00 ) , C2 ( 1 00 ) , 03 ( 1 00 ) 
CALL FI(C1,J) 

CALL PINT(C2, I2,C1, J) 

X=0.D0 
DO i N=1,I2 
X--=X+C2(N) 

CONTINUE 

C2 < i ) -C2 ( 1 ) -X 

CALL PINT(C1, U,C2, 12) 

CALL PA (C2, 12,4) 

CALL PNPY ( C3 , 1 3 , C 1 , 1 1 , C2 , 1 2 ) 

CALL P I NT ( C 1 , I 1 , C3 , I 3 ) 

X=0. DO 
DO 2 N- 1,11 
X=X+C1 (N) 

CONTINUE 

Cl<i)=Cl(l)-X 
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04(100) 


04 ( 100 ) 




CALL FIP(C2,I2.n 

CALL PHPY(C3» I3,C2t 12, Cl, II) 

CALL PINT(C2, 12,C3, 13) 

X-O.DO 

DO 3 N*i-, 1.2 ■ ■ 

X«X-C2(N) 

CONTINUE 

XX«(2*I“1)^^<2#J~1 ) 
IF<DABSa).LT.l.D-7) X«O.DO 
T4=X.JrDSQRTCXX) 

RETURN 

END 

SUBROUTINE FU4ai4, 1 , J, K, L) 
IMPLICIT REAL#S(A-H,0-Z) 

D I I'lENS ION C 1 (1 00 ) , C2 ( 1 00 ) , C3 ( 1 00 ) 
CALL FIPa-:i, II, I) 

CALL PA(C2,I2,&) 

CALL PHPY(C3, 13,C1 , II ,C2, 12) 

CALL PINT (Cl, II, C3, 13) 

X=0. DO 
DO 1 N«1,I1 
X=X+C1(N) 

CONTINUE 

XX=’“'^«-I-1 

IF(DABS(X).LT.1.D~7) X-O.DO 
U4=:X#DSQRT ( XX ) / 1 5. DO 
RETURN 
END 

SUBROUT I NE FV4 ( V4 , I , J , K , L ) 

IMPLICIT REALMS (A-H,0-Z) 

D I MENS I ON C 1 ( 1 00 ) , C2 ( 1 00 ) , C3 ( 1 00 ) 
CALL PIP(C1, n , J)- 
CALL FIP(C2,I2,K) 

CALL PMPY( C3, I 3, Cl , I 1 , C2, 12 ) 

CALL PINT(C1, I1,C3, 13) 

CALL FIP(C2,I2,L) 

CALL PI-IP Y ( C3 , 1 3 , C 1 , 1 1 , C2 ,12) 

CALL PA (C2, 12,4) 

CALL PMF'^(C1, I1,C2,I2,C3, 13) 

CALL PINT(C2, I2,C1, II ) 

X^sO.DO 
DO 1 N-1,I2 
X=X+C2(N) 

CONTINUE 

C2( 1 )-C2( 1 )-X 

CALL FIP(C1 ,11,1) 

CALL PMP Y ( C3 , I 3 , C 1 , I 1 , C2 , I 2 ) 

CALL PINT (Cl, II, C3, 13) 

X-O.DO 
DO 2 N= 1,1.1 
X=X“C1(N) 

CONTINUE 

X X = ( 2-«*I-l (-2*0- 1 ) * ( 2^^K- 1 ) * ( 2-^L- 1 ) 

IF(DABS(X) .LT. 1 .D-7) X-O.DO 
V4=X#DSQRT(XX) 

RETURN 

END 

SUBROUTINE FW4 ( W4, I , J, K, L) 

IMPLICIT REAL^.^8(A-H,0-Z) 

D I MENS I ON C 1 a 00 ) , C2 ( 1 00 ) , C3 ( 1 00 ) 
CALL FI(C1,J) 

CALL PINT(C2, I2,C1 , J) 

X=0. DO 
DO 1 N-1,I2 
X^X+C2(N) 

CONTINUE 

C2( 1 )-C2( 1 )-X 

CALL P I NT ( C 1 , 1 1 , C2 , 1 .2 ) 

CALL PA (C2, 12,4) 

CALL PMP Y ( C3 , I 3 , C 1 , I 1 , C2 , I 2 ) 

CALL FIP(C2,I2,K) 

CALL PMP Y ( C 1 , 1 1 , C2 , 1 2 , C3 ,13) 

CALL PINT(C2, 12, Cl ,11) 

X-O.DO 
DO 2 N=1 , 12 
X^X+C2(N) 

CONTINUE 

C2 ( 1 ) =C2 ( 1 ) -X 

CALL FIP(C3, r3,I) 

CALL PMPY ( Cl , I 1 , C3, I 3 , C2 ,12) 

CALL P I InIT ( C2 , 1 2 , C 1 , 1 1 ) 

X -o . DO 






1556. 

1557. 
1S5S. 

1559. 

1560. 

1561. 

1562. 
,1563. 

1564. 

1565. 

1566. 

1567. 

1568. 

1569. 

1570. 

1571. 

1572. 

1573. 

1574. 

1575. 

1576. 

1577. 

1578. 

1579. 

1580. 

1581. 

1582. 

1583. 

1584. 

1585. 

1 586 . 
587. 
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1 58'.'/ . 

1590. 

1591. 

1592. 

1593. 

1594. 

1595. 

1596. 

1597. 

1598. 

1599. 

1600. 
1601 . 
1602. 

1603. 

1604. 

1605. 

1606. 
1607. 
1 60 >:! . 

1609. 

1610. 
1611 . 
1612. 
1618. 

1614. 

1615. 

1616. 

1617. 

1618. 

1619. 

1620. 
1621 . 
1 622 . 

1623. 

1624. 
1 0^5 . 
1'626. 
1627. 

1 C'2 o . 

1629. 

1630. 

1631 . 

1632. 
1 ooo » 
1634. 

1 6oo ■ 

1636. 

1637, 


OF 


c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 


DO 3 N-1,I2 
X=*X-C2(N) 

3 CONTINUE 

XX«(2^I~1 )-i^(2#J-l )'tt<2*K“l ) 

IF<DABS(X) ,LT. l.D-7) X-O.DO 
W4«XifrDSQRT(XX) 

RETURN 

END 

SSP SUBROUTINES PHPY, PDER, PINT, PADDH -SfJc* 

SUBROUT I NE PMPY ( Z , I D I MZ , X , I D I NX V Y I D I NY ) 

REAL^tS r, JC,Y 
DIMENSION Z(l)., X-n),Y<l) 

IFUDINX^^IDIMY) 10,10,20 
10 IDIMZ-O 
GO TO 50 

20 I D I M Z ~ I D 1 1-1 X + 1 D I NY- 1 

DO 30 1=^1, IDIMZ .... 

30 Z(I)a0.D0 

DO 40 I=:1,IDIMX 
DO 40 J-1,IDIHY 
K-I+J-i 

40 Z(K)«X(I)#Y(J)+Z(K) 

50 RETURN 
END 

SUBROUTINE PDER(Y, IDINY, X, IDINX) 

REAL^^S Y,X,EXPT 
DIMENSION XC1),Y(1) 

IF(IDIMX~1) 3,3,1 

1 IDIMY~IDIMX-1 
EXPT-O.DO 

no 2 I‘=l,IDIHY 
EXPT«EXPT+1.D0 

2 Y(I)-X(1+1)*EXPT 
GO TO 4 

3 IDIMY-i 
Y(1)=0.D0 

4 RETURN 

END ... 

SUBROUT I NE P I NT ( Y , I D I M Y , X , I D I MX ) 

REAL^rS Y,X,EXPT 
DIMENSION X<1),Y<1) 

IDIMY=IDIMX-H 
Y< 1 )=0.D0 
IF(IDIMX) 1,1,2 

1 RETURN 

2 EXPT=1.D0 

no 3 I^2,IDIMY 
Y< I )==X( I-l )/EXPT 

3 EXPT^EXPT+l.DO 
GO TO 1 

END 

SUBROUTINE PADDI'KZ, IDIMZ, X, IDIHX , FACT, Y, IDIMY) 

REAL-if S Z , X , FACT , Y 
DIMENSION Zn),X<l),Y(l) 

NDIM=IDIMX 

IFUDINX-IDIMY) 10., 20,20 
NDIM=IDIMY 
IF(NDIM) 90,90,30 
no 80 I-1,NDIM 
IF(I-iniMX) 40,40,60 
40 IFd-iniMY) .50,50,70 
50 Z(I)=FACT^^Y(I)+X(n 
GO TO SO' 

60 Za)=FACT-»Ya) 

GO TO SO 
70 Z(I)=:XU) 

SO CONTINUE 
90 IDIMZ-NDIM 
RETURN 
END 

■5f -Jr -Jf •Jr ■if -Jr -if -Jr -if 

•}f-if^--»-if'Jf'if'if-if-}f-if-,f-5f'if-if-if-if'if-if'if'jf'if-ir'if'if'{f'}f-if-if'}f-}f--if--;f4f-}f-if--if-if-';f-{f-;f-if'if-i^'it',f^f'f^ 

4f* OBJECTIVE OF SUBROUTINE SCINT : TO INTEGRATE, IN X , THE 
FOLLuWiNb FUNCTIOI'j : 

-if-K- SC ( 1 ) +SC < 2 ) . X. +SC ( 3 ) . X ^Hr2 + . . . + SC ( I SC ) . XHf < I SC- 1 ) ! . COS \ A . X ) 
.88 ( 1 ) +SS ( 2 ) . X +SS < 3 ) . X •>f -if2 + S3 < I SS ) . < I SS- U I . S I N < A . X ) 


10 

20 

30 


SUBROUT I NE SC I NT ( RCOS , I COS , RS I N , I S I N , S 
IMPLICIT REALefS(A-H,0-Z> 


C , j. tiC , S*.8 , I £>S , A ) 




1&3S. 
1 6^9 . 

1640. 

1641. 

1642. 
1 64'v:I . 

1644. 

1645. 

1646. 

1647. 
164S. 

1649. 

1650. 

1651. 
1 652' . 

1653. 

1654. 

1655. 

1656. 

1657. 
165£!. 

1 659 . 

1660. 
1661. 
1662. 
1 663 . 
1 c>6»4 » 

1665. 

1666. 
1667. 
1 6c<3 . 
166'?. 

1670. 

1671 . 

1672. 

1673. 
T 67 4 . 

1675. 

1676. 

1677. 
1 6>7S. 
1679. 

1 630 . 

1 63 1 . 

1632. 

1 633 . 

1634. 

1635. 

1 636 . 

1637. 
1633. 

1689. 

1690. 

1691. 

1692. 

1693. 

1694. 

1695. 

1 696 . 

1697. 
1693. 

1 699 . 

1700. 

1701 . 

1702. 

1703. 

1704. 

1705. 

1706. 

1707. 
1.703. 

1709. 

1710. 

1711 . 

1712. 

1713. 

1714. 

1715. 

1716. 

1717. 
1713. 
1719. 


OF POOR 


1 

10 


11 

20 


6 

21 


l: 

C 

C 

C 

C; 

C 

c 

c 

c 

c 

c 

c 

c 

C: 

C 

C 


D IHEWS I CW RCOS { U . RS X N 1) , SC (1 ) , S3 (1 ) , AA (1 00 
1»A1 (100) ,B1 (100) ,AB< 100) 

AA(1)«0.D0 
AB(1)*0.D0 
IAA«1 
IAB«1 
ICQS-0 
IS IN-0 

IF(ISC.EQ.O) 60 TO 20 
DO 1 N=1»ISC 
NN-N~1 

CALL XMCAX(A1, IA1,B1,IB1,NN,A) 

CALL PADDM ( RCCS » I COS , AA , I AA , SC ( |v| ) , A1 » I A 1 ) 

DO 2 M«1»IC0S 
AA(M)=RCOS(M) 

CONTINUE 

I F ( I COS . 6T . I A A ) I A A= I COS 
CALL PADDM(RSIN» ISIN, ABt lAB, 'SC(N) , B1 , IBl) 

DO 3 H=l, rsIN 
AB(M)aRSIN(M) 

CONTINUE 

IFdSIN.OT. lAB) lABalSIN 
CONTINUE 
DO 10 Na 1,1 COS 
AA(N)aRCOS(N) 

CONTINUE 
DO 11 Nal,ISIN 
AB(N)aRSIN(N) 

CONTINUE 

IF(ISS.EO.O) 60 TO 21 
DO 4 NaldSS 
NNaN~l 

CALL XMSAX(Ai, lAl.Bl, IB1,NN, A) 

CALL PADDN ( RCOS ,.I COS , AA d A A , SS ( 1^1) , A 1 ,.I A i ) 

DO 5 MaldCOS 
AA(M)=RCOS(M) 

CONT I NUE 

I F ( I COS . 6T . I A A ) I A Aa I COS 

CALL PADDH(RSIN, ISIN, AB, lAB, SS(N ) , Bl , IBi ) 

DO 6 H=1,ISIN 
AB(H)aRSIN(N) 

CONTINUE 

IF( ISIN.6T. lAB) lABalSIN 
CONTINUE 
ICOSalAA 
ISIN=IAB 
RETURN 
END 

-{J -Jf -W Hi' -Jt •W’ -ft ^ ■Jr ^ t ■}? -Jf -!f -Jf if "W ir •{f "{r •}? •if if w ^ r -Jr 


irif SUBROUTINE XHSAX INTEGRATES ( X-»irH) . SIN ( A. X ) OVER X 

i^* THE RESULT OF THE INDEFINITE INTEGRAL IS OF THE FDRH : 

Al(i)+Al(2).X + A1 (3) . Xi<-ir2 + . . . +A1 ( lAl ) . X-«-* ( I Al-1) ! . COS ( A- X ) 
B1(1)+B1(2).X + Bi(3) . Xitii-2 + . . . +B1 ( IBl ) . X^ir ( IBi-1 ) ! . SIN ( A. X ) 

if* THE COEFFICIENTS Aid) AND Bid) ARE DETERMINED BY XMSAX 

if if if if if i<- if if if if if if if if it * if if if if if if if if if ir if if -Jf ii' -Jr -Jf -Jf •ff if it- if if if -Jf if -Jr if -Jr if -if if if if i^ 

if if if if if if if if if if if if if if if if if if if ■if if if if if if if if if if if if if if if ir ir if if if if if if if if if if if if if if if if if '{f if it it * if 

ANALYTICAL EXPRESSION FOR THE COEFFICIENTS A1 AND Bl s 
URU TABLES, 26TH EDITION, PAGE 320, INTEGRAL NUMBER 392 

if if if * if if if if if if if if if if i f if -Jf if if if if if if if if if if if if if if w if if if if if if if if if if if if if if ic if if if i^ if ^ 
itififififififififififififififififififififififififififififififififififififififif,fifififififif^fifififififififififif^ 

SUBROUTINE XHSAX (Al, I A1 , Bl , IBl , M, A ) 

IMPLICIT REALifS(A-H,0--Z) 

DIMENSION C( 100) , Al (1 ) ,B1 ( 1 ) 

FACTMal . DO 
IF(M.LE. 1) GO TO 25 
DO 1 I=2,M 
FACTM=FACTM*I 
CONTINUE 
! IAl=M+i 

DO 2 1=1, I Al 
11=1-1 
FI 1=1. DO 

I F ( I 1 . EQ . 0 ) GO T 0 33 
DO 3 J=1,I1 
FIl=FIlifJ 
1 CONTINUE 
I IXA=M-f2-I 







1720. 

1721. 

1722. 


C ( I) =-'FACTI4/ < FI Inf-XA ) iic onOR OUAUtV 

2 CONTINUE OF POun 

i 

n 

U 

n 

i! 

1 

1723. 


KK=~1 


1724. 


DO 4 I«l, IA1»2 


1725, 


J-IAl-fl-I 


172&. 


AK J)~KK#C< J) 

|i 

1727. 


IF{J.0T.1> A1(J-1)«0.D0 

j; 

1723. 


KK«-K'K 

]} 

1729. 


4 CONTINUE 

!f 

it 

1730. 


KK=1 

1731. 


IF<M.EQ.O) GO TO 6 

if 

1732. 

1733. 


DO 5 I«1,N,2 

B1 < J)=KK^^C<;j) 

IF J.GT.l) Bl(J~i)=O.DO 

i 

1734. 

1735. 


il 

:( 

\l 

173&. 


KK=-KK 


1737. 


5 CONTINUE 

jj 

1738. 


6 IB1==N 

U 

S[ 

1739. 


RETURN 

it 

ll 

1740. 


END 

U 

ii 

174.1. 

C 



1742. 

c 

SUBROUTINE XHCAX INTEGRATES ( X-k^M) . COS( A. X ) OVER X 

. [ 

1743. 

c 

1 

1744. 

c 

the RESULT OF THE INDEFINITE INTEGRAL IS OF THE FORM : 

■i 

1745. 

c. 

j 

1746. 

c: 

A1<1)+A1(2).X + AK3).X-Jf*2 +• . . ,+Al ( lAl ) . X^-J^dAl-l ) I .COS(A. X) 
+■'• BK1)+B1<2).X + BU3).X*-}f2 + . . . +B1 ( IBl) . IBl-i) I .SIN( A. X3 

I 

1747. 

1743. 

c 

c 

i 

I 

1749. 

c: 

THE COEFFICIENTS AUI) AND BKI) ARE DETERMINED BY XHCAX 

|i 

1750. 

c 

j: 

175,1. 

1,752. 

C; 

SUBROUTINE XMC.AX ( Al : lAi » B1 , IBl , l‘L A) 


1753. 


REAL#W A1 j B1 T A 


1Z§4. 


DIMENSION AKn.BKl) 


X / O ^l.t « 


CALL XM3AX (Bi , IBl , A1 , lAl , M, A ) 

b 

J756. 


DO 1 N-i.IBl 


1757. 


Bl (N)--Bl (N) 


1758. 


1 CONTINUE 


1759. 


RETURN 


1760. 


END 


1761. 

C: 

# ## 4r •jf "fr ‘W.'Jr •M' "{f '}f +r 4c •?{■ •}?•?(• -fc •Jf ■H' “Jf ■5c ■?<’ •5^ "Sc ir 


1762. 

C 


: 

1763. 

c 

■5c ■5r 4c -ic -Jc •ir "{c •Jt •5<’ 4c -fc "{c -it ■5c ■{{■ ■{{• 4c ■}{• 4 c ■5c •5c -Jf ■}c ■5c -Jf -Jc ■5 ; ■5c -S' -Jc -ic ■ir •5c ■5c 4c 4c ■Jc 4c -fc -Jc ■>«■ ■5c -ic 4c ^ 


1764. 

C: 

4f454c SUBROUTINES FI,FIP,FIPP AND FI3P, DEFINING THE SHIFTED 

j; 

1765. 

C: 


1766, 

C: 

LEGENDRE POLYNOMIALS AND THEIR FIRST» SECOND AND THIRD DERIVATIVES 


1767. 

1768.. 

0 

SUBROUTINE FHCOEFF, I) 


1769. 


REAL4t8 COEFF 


1770. 


DIMENSION COEFF<S) 


1771. 


IF(I.EQ.l) GO TO 1 

!; 

1772. 


IF<I.EQ.2) GO TO 2 


1773. 


IF(I.EQ.S) GO TO 3 

;} 

1774. 


IFd.EQ. 4) GO TO 4 


1775. 


IFd.EQ.Ei) GO TO 5 

ij 

1776,. 


I F d . EQ. c. ) GO To c< 

Ii 

fj 

1 

1777. 


I F < I . EQ .7) GO To 7 . 

1778. 


COEFF<i)--l.DO 

j 

1779. 


C0EFF(2)-56.n0 


1780. 


CGEFF(3)=-756.D0 

'1 

1781, 


COEFF(4)^4200.D0 

[1 

1782. 


COEFF (5) -=-11500. DO 

il 

It 

1783. 


COEFF ( 6 ) — 1 66ci'2 . DO 

1784,. 


COEFF <7 120 12. DO 

1 

1785. 


COEFF < 8) •■=3432. DO 


1786. 


GO TO 50 

'•i 

1787. 


7 COEFF d)-l. DO 

\\ 

1788. 


COEFF d)— — 42. DO 


1789. 


COEFF ( 3 ) =420 . DO . 

il 

1790. 


C0EFF(4)=-16S0.D0 

i \ 

i 

1791. 


COEFF (5) =3150. DO 

^ 1 

1792. 


COEFF ( 6 ) =—2772 . DO 

' 1 

1793. 


C0EFF(7)=924.D0 

i ! 

1794. 


GO TO 50 

.1 

1795. 


6 COEFF d )=-l. DO 


1796. 


COEFF ( 2 ) =30 . DO 

■ 

1797. 


C0EFF<3)=“210.D0 


1798. 


COEFF (4) =560. DO 

' •! 

1799, 


COEFF (5) =-630. DO 

! 

1800. 


COEFF ( 6* ) =252. DO 

. ’ 
;-j 

1801. 


GO TO 50 

■ 1 


ja ifc-4 «• --asrs« 

I 


* rj# fesi » jJ4Ws. jr **.•». « 


» 3 ■. ' -'T3' te » *i a ..i jr: i *e »c-3x .•s=^«wrsie* ae* »i: «■ - • « 


1802. 

1803, 

1804. 
ISOS. 
l80<& . 
1807. 
ISOS'. 

1809. 

1810. 
1811. 
1812. 
JS13. 

1814. 

1815. 
ISIS. 

111?: 

181'?. 

1320. 

1821. 

1822. 

1823. 

1824. 

1825. 
1S2S. 

1827, 

1828. 

1829. 

1830. 

1 83 1 . 

1832. 

1833. 

1834. 

1835. 
1S3S. 
,1 8c‘7 • 
M838. 

1839. 

1 840 . 

1841 . 

1842. 

1843. 

1844. 

1845. 
1S4S. 
1847. 
1 348 . 

1849. 

1850. 

1851. 

1852. 

1853. 
1354. 
1855. 
185S. 

1857. 

1858. 

1859. 

1860. 
1861. 
1862. 
1 863 . 
1 3o4. 

1865. 

1866. 

1 3(:<3 . 
1869. 
1370. 

1871. 

1872. 

1873. 

1874. 

1875. 

1876. 

1877. 
1873. 

1 879 . 

1 3£l0 . 
1881 . 

•I 

1 3*~i3 . 


C 

c 

c 

c 

c 

c 


4 


3 


5‘ 


I 

50 


COEFFn)«l.DO 

C0EFF(2)«-20.DO 

C0EFF(3)«90.D0 

C0EFF(4)«-140.D0 

C0EFF<5)«70.D0 

00 TO 50 

C0EFF<1)«-1.D0 

C0EFF(2)«12.D0 

COEFF(3)*“30,DO 

C0EFF(4)«20.D0 

GO TO 50 

COEFF< 1 )«1.D0 

C0EFF<2)=s-6.D0 

C0EFF(3)«6.D0 

GO TO 50 

OOEFF( 1 )*-i.D0‘ - “ • 

C0EFF<2)»2.D0 

GO TO 50 

C0EFFa) = l.D0 

RETURN 

END 

SUBROUTINE FIP< COEFF, IP, I > 
REAL^rS COEFF.Cl 
D I MENS I ON COEFF < 1 00 ) , C 1 (1 00 ) 
UALL FI(C1»I) 

CALL PDER ( COEFF , I P , C i , I) 
RETURN 
END 

SyBROLIT I IvlE FI PP { COEFF , I PP , I ) 
REAL-J^S UUEI" F» Ul 
D I MENS I ON COEFF < 1 00 ) , C 1 ( 1 00 ) 
CALL FKCOEFF,!) 

CALL PDER < Cl , I P , COEFF , I ) 

CALL PDER < COEFF , I PP , C 1 , I P ) 

RETURN 

END 

SUBROUT I NE F 1 3P < COEFF , 1 3P , I) 
REALMS COEFF, Cl 
D I MElvJS I ON COEFF ( 1 00 ) , C 1 (1 00 ) 
CALL FI (Cl, I) 

CALL PDER ( COEFF , I P , C 1 , I) 

CALL PDER < C 1 , 1 PP , COEFF , I P ) 
CALL PDER ( COEFF , I 3P , C 1 , I PP ) 
RETURN 
END 


orasp.'?.!, P'iCB 6P 

OF’ l-OOU QUALSTY 


# # # # # "{f "Jf # V ■k' "if *ip •M' -!r -{c # # •Vr •{? if ^ iHf W 


SUBROUTINE PA, DEFINING A FEW AUXILIARY POLYNOMIALS ( X , Xi^i«-2 , ETC ) 

SUBROUTINE PA ( COEFF, I PA, I ) 

REALMS COEFF 
DIMENSION COEFF (6) 

IFd.EQ. 1) GO TO' 1 
IF(I.EQ.2) GO TO 2 
I F ( I . EQ . 3 ) GC< TO 3 
I F ( I . EQ . 4 ) GO TO 4 
IFd.EQ. 5) GO TO 5 
COEFF( l)’-=i4.D0 
C0EFF(2)=0..D0 
C0EFF(3)~0.D0 
C0EFF(4)«-5.D0 
C0EFF(5)~0.D0 
C0EFF(6)-1.D0 
IPA-6 
GO TO 50 

5 COEFF d)~0. DO 
C:0EFF(2)=0.D0 
IJUEFF ( 3 ) — 1 . DO 
IPA=3 
GO T 0 50 

4 COEFF d)=0. DO 
COEFF (2)=i. DO 
I PA-2 
GO TO 50 
COEFF ( 1 )-l, DO 
COEFF (2)^0. DO 
COEFF ( 3 ) 2. EiO 

C0EFF(4)-0.D0 
COEFF ( 5 ) = 1 . DO 
I PA-5 




1884 . 

1885 . 
1 886 1 
1387 . 
1883. 
188 '?. 

1890 . 

1891 . 

1892 . 

1893 . 

1894 . 

1895 . 

1896 . 

1897 . 


i»i920. 
1921 . 


2 C0EFF< 1?»5.D0 ORIGINAL PAGE ID 

?Si£^<2)«0.D0 OF POOR QUALITY 

C0EFF(3)«~6.D0 

COEFF(4)«O.DO 

C0EFF(5)*1.D0 

IPA«5 

GO TO 50 

i C0EFF<i)«l,D0 
C0EFF<2)«0.D0 
C0EFF(3)~~1.D0 
IPA«3 

30 RETURN 
END 

ADDITIONAL SUBROUTINES, USED TO EVALUATE THE COEFFICIENTS 
INVOLVING PRODUCTS OF POLYNOI'II ALS AND TRIGONOHETRIC FUNCTIONS -<Hf 

SUBROUT I NE FK ( XK , I , J , K , L ) 

IMPLICIT REAL<^S(A-H,0-Z) 

D IMEI\{S ION Cl < 1 00 ) , C2 ( 1 00 ) , C3 < 1 00 ) , C4 < 1 00 ) 

COMMON' PI 
A«(I-0.5DO)*PI 
CALL FI3P(C1, II, J) 

CALL FIP(C3,I3,K) 

CALL PMPY(C2, 12, Cl, II, C3, 13) 

CALL FIPP<C4,I4, J) 

CALL PMF-Y.(C1, II ,C4, 14, C3, 13) 

IFm.NE.O) GO TO 10 

11=1 ' • ■ 

Cl <1)^0. DO 
,0 DO 1 N~1,.I1 
CUInD-A-^CI <N) 

CONTINUE 

CALL SoINTCCa, 13? C4, I4?C1, II, C2, 12, A) 

X=0 DO 

IF<i4.‘EQ.O) GO TO ’ll 
DO 2 N=1,I4 
X=X+C4(N) 
i CONTINUE 
,1 X=X#DSIN(A)“C3<1) 

I F ( DABS ( X ) . LT . 1 , D-7 ) X=0 . DO 
XX=2-t^(2*J-i)if(2*K~l ) 

XK=~X*DSQRT(XX) 

RETURN 

END ■ . • , 

SUBROUT I NE FM ( X H , I , J , K , L ) 

IMPLICIT REAL#S<A~H,0~Z) 

DIMENSION Cl< 100 ) , C2 ( 100 ) , C3 < 100 ) , CA < lOO ) , AUX ( 2) 

COMMON PI 

A=(I“.J)*PI 

GALL PA < Cl, 11,4) 

ISS«1 

C2(1)=0.D0 
DO 1 IN=l-,2 

IF(DABS<A) .GT. l.D-2) GO TO 20 . 

AUX(IN)'-=0.5D0 
GO TO 3 
;0 X=O.DO 

CALL toL> I NT ( L.y , I vt! , i_.4 , 1 4 ? U 1 ? II, Crfi , I £<S , h ^ 

IFCI3.EQ.0’) GO TO 10 
DO 2 N-1,I3 
X=X+C3(N) 

! CONTINUE 
0 X=X^^DC0S(A)~C3<1) 

AUX(IN)=X 

3 A=(I+J-1)^^PI 
CONTINUE 
XM=AL1XC1)-AUX<2) 

IF(DABSv XM) . LT. 1 . D-7) XM=0‘. DO 

RETURN 

END 

SUBROUT I NE FN ( X N , I , J , K , L ) 

IMPLICIT REALMS (A-H,0-Z) 

D I MENS I ON 01(100), C2 ( 1 00 ) , C3 < 1 00 ) , C4 ( 1 00 ) , AU X ( 2 ) 

COMMON PI 

A=(I-J)-}fPI 

CALL PA (Cl, 11,1) 

I 1 

C2(1)-0.D0 




• «=t»=^lK*SMt«=5f CssS 4^ S'. 


» j#t. T ivcstc as »: - 


‘ C3* *tr* ■ • - 


19&6. 

iW. 

1963. 

1969. 

1970. 

1971. 

1972. 

1973. 

1974. 

1975. 

1976. 

1977. 

1978. 

1979. 

1980. 

1981. 

1982. 

1983. 

1984. 
1995. 

1986. 

1987. 

1988. 

1989. 

1990. 

1991. 

1992. 

1993. 

1994. 

1995. 

1996. 

1997. 

1998. 

1999. 

2000. 
2001. 
2002. 

2003. 

2004. 

2005. 

2006. 

2007. 

2008. 

2009. 

2010. 
201 1 . 
2012. 

2013. 

2014. 

2015. 

2016. 

2017. 

2018, 

2019. 

2020 . 
2021. 
2022 . 

2023. 

2024 . 

2025. 

2026. 

2027. 

2028. 

2029. 

2030. 

2031. 

2032. 

2033. 

2034. 

2035. 

2036 . 

2037. 

2038. 

2039. 

2040. 

2041. 

2042. 

2043. 

2044. 

2045. 

2046. 

2047. 


20 


2 

10 

3 


1 

10 


10 


20 


11 


DO 1 IN«1,2 

IF(DABS(A).GT,1.D^^ GO TO 20 
AUX ( IN)w2. DO/3. DO 
GO TO 3 
X«0.D0 

CALL S'CrNT(C3, 13, 04.14,01 » 1 1.C2, ISS.A) 
IFdS.EQ.O) GO TO 10 
DO. 2 N»i,I3 
X«X+C3(N) 

CONTINUE 

X«X#DC0S{A)~C3(1) 

AUX(IN)*sX 
A»<I+J-i >#PI 
CONTINUE 

iK Aux < 1) +AUX < 2 
<,gABS < XN ) . LT . 1 . D~7 ) XN«0 . DO 

END 

SUBROUTINE FR(R,I,J,K,U 
IMPLICIT REAL#S(A-H,Cf-Z) 

D I MENS ION C 1 ( 1 00 ) , C2 < 1 00 ) , C3 (1 00 ) , C4 (1 00 ) 
COMMON PI 
A«<I-0.5D0)#Pr 
CALL PA<C3,I3,4) 

CALL FIP<C2, 12, J> 

CALL PMPY<C1, I1,C2, 12, C3, 13) 

X *** C" ^ 1 

C2<’l)a0.D0 

CALL SCINT<C3, 13, C4, 14, C2, ISC.Cl, Ii,A) 
XaO.DO 

IF<I4.EQ.O) GO TCI 10 
DO 1 N»1,I4 
X-^X+C4<N> 

CONTINUE 

X«X^^DSIN<A)-C3a) 

IF(DABS<.X).LT. l.D-7) X.-O.DO 
XX«2#(2^U~1 ) 

R==X#DSQRT(XX) 

RETURN 

END 

SUBROUTINE A3P4(A3, I , J,N,L, IA3, IP4) 
IMPLICIT REAL-itSCA-H.Ci-Z) 

D I l«1ENS I ON C 1 ( 1 00 ) , C2 < 1 00 ) , C3 (100), C4 ( 1 00 ) 

COMMON PI 

A=( J-0.5D0)#PI 

CALL FIP(C1,I1,K) 

CALL FIP(C3, 13,1) 

CALL PHPY(C2, 12,01,11,03, 13) 

CALL FIPP(C4, I4,K) 

CALL ^ PMPY { Cl , 1 1 , C4 , 1 4 , C3 ,13) 

IF(Il.NE.O) GO TO 10 
Il~l 

Cl (l)-O.DO 
DO 1 N«l,Ii 
Cl (N)=A*Ci(N) 

CONTINUE 

I F_( 1 2 . GE . 1 . AND . I P4 . EQ . 0 ) GO TO 20 

C27i)-O.DO 

DO 2 N=i , 12 
C2(N)=-AttA^C2(N) 

CONTINUE 

CALL SCINT(C:3, 13, C4, 14, Cl, II, C2, 12, A) 
X«0.D0 

IF(I4.EQ.O) GO TO 11 
DO 3 N=1,I4 
X~X+C4(N) 

CONTINUE 

X=X-}^DSlN<A)-C3a) 

I F ( n ABS ( X ) . LT . 1 . D-7 ) X -0 . D 0 
XX=2#(24fI-l)-iH2^frK-l) 

A3==-X*DSQRT(XX) 

RETURN 

END 

SUBRCiUT I NE FB3 ( B3 , 1 , J , K , L ) 

IMPLICIT REAL#8CA--H,Ct-Z) 

D I i'lEI'Js I UN U 1(1 00 ) , C2 ( 100) , Gel ( 1 00 ) , C4 C 1 00 ) 

C014M0N PI 

B3-0.D0 

CALL FIP(C4, 14, I ) 

CALL F I eiP ( C3 , 1 3 , L ) 

CALL PMPY(Ci , U , C3, IS, C4, 14) 


0R!C4?^’Al PAG” D 
OF POOR QUAU13C 


) )/2.D0 






2048. 

2049. 

2050. 

2051. 


CAUL FIPP<C3, 13.L) ... 

CALL PHPy4G2. I2,C3vI3.C4i 14) 


2054. 

2055. 
2053. 

2057. 

2058. 

2059. 

2060. 
2061. 


ISIS: 

2064. 

2065. 

2066. 
2067. 
2068- 

2069. 

2070. 

2071. 

2072. 

2073. 

2074. 

2075. 

2076. 

2077. 

2078. 

2079. 

2080 . 
2081, 
2082. 

2083. 

2084 . 

2085. 

2086. 

2087. 

2088. 

2089. 

2090. 

2091 . 

2092. 

2093. 

2094. 

2095. 

2096. 

2097. 
2093. 

2099. 

2100 . 
2101 . 
2102 . 

2103. 

2104. 

2105. 

2106. 

2107. 

2108. 

2109. 

2110, 
21;ll. 
2112. 
2U3. 

2114. 

2115. 

2116. 

2117. 

21 18. 
2U9, 
2 1 20 . 
2 1 X' 1 a 
2122. 

2123. 

2124. 

2125. 

2126. 

2127. 

2128. 
2129. 


1 

10 

3 


30 

6 


7 

40 


IF<K.NE. J),G0 TCf 10 
CALL PINT (C3f 13, Cl, ID 
DO 1^N«1,I3 
! ( Im ) 




OF POOii 


A"^*” i • DO 
GQ TO 20 
A“{K""'J)’>^PI» 

DO 3 N«»l, 12 
C2<N)«-A11C2(N) 

Bal!!!! SCINT.( C3, 13, C4 , 1.4, Cl , II, C2» 12, A ) 


"" 


4 . 


20 ' 


B3®B3+C3( N ) , 

CONTINUE 

B3*-' 1 ) ~B3l*DC08( A ) 

K-i 




ID 


1 

10 


CALL . .... 

DO 5 NwD 13 
B3»B3+C3<N) 

CONTINUE 
GO TO 40 
AA«JK^1P^ 

DO 6 N«1 , T2 
C2(N)«C2<N)-»^AA/A 

CALL^SC:INT0:.3, X3,C4, 14,01, ID 02, 12, AA) 

IFDS.EQ.O) GO TO 40 
X=0.D0 
DO 7 N-DI3 
X=X+C3<N) 

BSa^BS+XiinCUfcKAADySX p . 

I F < DABS < B3 ) . LT . 1 . D-7 ) B3-U . DO 
X=<2-»-I-Di^(2iiL“l ) 

B3=B3#nSQRT ( X ) 

RETURN 

END 

SUBROUT I IvJE FR3 i R3 , I , J , K , L ) 

IMPLICIT REALMS (A-HiO-Z 

D I MENS ION C 1 C 1 00 ) , U2 ( 1 00 ) , CW ( 1 00 ) , 04 < 1 OO ) 

COMMON PI 
A~<L-0.5D0)ii-PI 
CALL FIP(C3, 13, I ) 

CALL FIP(C2,I2,J) 

CALL PI^IP Y < C 1 , 1 1, C2 , 1 2 , C3 V 1 8 ) 

CALL PINT(C2, 12, CD ID 
CALL FIP<CDIDK) ,,, 

CALL PMPYOCS, I3,CDI1,U2, 12) 

CALL PA(C2,I2,p^^ 

CALL PMPY ( Cl , I D C2 , I2 , C8 , 13 ) 
isc-i 

C*"' ( 1 ) ~0 DO 

CALL SC i NT < C3 ,18, C4 , 14 , C2 , 1 SC , C !• , I i , A ) 

IFa4?EQ.O) GO TO 10 
' DO 1 N=i,.I4 
. X=X+C4(N) 

CONTINUE 

■ X=^X-«-DSIN(A)-C:3a ) ^ . 

IF<DABS(X) .LT.DD-/ ) ^=Y,-Pu 

R3=>XifDSG:!RT(XX) 

RETURN 

END 

SUBROUT I |vlE U3D4 < U3 , I , J , K , L , I U3 , 1 D4 ) 

I MPL I C I T REAL-»S ( A~H , 0- Z ) r . 

D I MENS I ON C4 (100), C2 (100 ), C3 ( 1 00 ) , C4 ( 1 uu ) > C5 ( 1 uO ; 
• COMMO!^) PI 
LI3-0 . DO 
XX =2. DO 

XA^I/2.D0-I/2_ . ^ .... . 

I F ( D ABS ( X A ) . GT . D D- 1 ) X X ==0 . DO 
IF(ID4.EQ..D GO TO 1 
CALL PA(CDID5) 

IAUX'-=.J 
XXX-l.DO 
GD TO 2 




2130. 

1 

XXX-2^J~l 

2131. 


CALL PA (C2, 12,4) 

2132. 


CALL FI(C3,J) 

2 1 3c! . 


CALL PHPY(CKI1,C2, r 

2134. 


IAUX«L 

2135. 


ISS-i 

2136. 


C2U)=0.D0. 

2137. 


lA-IALIX-K 

2133. 


• DO 3 IN=1,2 

2139. 


IFdA.NE.CO GO TO 10 

2140. 


CALL PINT(03, I3,C1, I 

2141. 


X-O.DO 


oRiGii^Ai mc-ti m 

OF POOR QUALiTV' 


2142. 

2143. 

2144. 

2145. 

2146. 

2147. 
2143. 

2149. 

2150. 
2151- 

2152. 

2153. 

2154.. 

2155. 

2156. 

2157. 
2153. 

2159. 

2160. 
2161. 
2162. 

2163. 

2164. 

2165. 

2 1 66 . 
2167. 
2 1 63 . 

2169. 

2170. 

2171 . 

2172. 

2173. 

2174. 

2175. 

2176. 

2177. 
2173. 
2179. 

2130. 

2131. 

X • 

•t. •! oo 

.<1 .1 OO m 

2134. 

2135. 

2 1 36 . 

O -f 0*7 
^ 1 C* / m 

2 1 33 . 
2139. 
2 1 90 . 
2191- 

^ 1 9 3 . 

2194. 

2 1 95 . 
2 1 9c' • 
2197. 

2190.. 

2199. 

2200. 
2201. 
2202. 

2203. 

2204. 

2205. 

2206. 

2207. 

2208. 

2209. 

2210. 
2211. 


15 


10 


4 

20 


• DO 21 N~1,’I3 - ' 

. X«X+C3(N) 

21 CONTINUE 

C3(l)»C3<n-X 
. CALL FIP<C5, 15, I) 

CALL PMPY(C4, I4,C3, I3,C5, 15) 

CALL PINT(C3, I3,C4, 14) 

X=0.D0 ' 

DO 12 N-l,-I3 
X=X+C3(N) 

CONTINUE 
X:=X-^C3a) • . 

U3«-LI3+X ‘ 

60 TO 13 . 

AssiA#pi ' 

CALL SCINT<C3, 13, C4, 14, Cl, II, C 2,1 3^1 , A) 
X=0.D0 

I F < 1 3 . EQ . 0 ) GO TO 20 
DO 4 InNI,I3 
X^X+C3<N) 

CONTINUE ... 

XA~DCOS(A) 

CONST=X«-XA 
CALL FIP(C5,I5,I) 

CALL PMP Y ( 02 ,12, 03 , I 3 , C5 , I 5 ) 

CALL PMPY ( C3 , 1 3 , C4 , 1 4 , C5 , 1 5 ) 

CALL SO I NT < C5 , 1 5 , C4 , 1 4 , C2 ,12, C3 , 1 3 , A ) 
X=O.DO 

IF<I5.EQ.O) GO TO 11 
DO 5 N=1,I5 
X«X+C5(N) 

5 CONTINUE 

1 1 U3-“U3+X^tXA-C5 ( 1 ) -CONST-frX X 

C2 < 1 ) - 0 . DO 
13 lA-IAUX+K-l 
3 CONTINUE 

IF ( DABS < LI3 ) . LT . 1 . D-7 ) U3~0 . DO 
XX-(2-»^I-l )-{t.XXX 
U3-U34^DSQRT < X X ) 

RETURN 
END 

SUBROUT I NE ACE I 4 ( A4 , I 
IMPLICIT REAL’5^S<A-H,0-Z) 

D I MENS I ON Cl ( 1 00 ) , 02 < 1 00 ) , C3 « 1 00 ) , C4 ( 1 00 ) 

COMl'tOI'J PI 

A-(L-0.5D0)*PI 

IF(IC4.£Q.l) GO TO 32 

IF(IE4.EQ.l) GO TO 33 

IF(II4.EQ.l) GO TO .B4 

CALL FI<C1.,J) 

CALL F I P ( C2 , I 2 , K ) 

CALL PMPY ( C3 , I 3 , C 1 , J , C2 , I 2 ) 

CALL PA (02, 12,4) 

GO TO 35 

32 CALL FIP(C1,I1,J) 

CALL FIP(C2,I2,K) 

CALL F'l'iPY < C3 ,13, C 1,11, C2 ,12) 

CALL PA < 02,12,5) 

GO TO 35 

33 CALL FI(C2,..l) 

CALL FI(C3,K) 

I2=J 

I3=K 

GO TO 35 

34 CALL FIP(C1,I1,J) 

CALL FIP(C2,I2,K) 

CALL PMPY ( C3 ,13,01,11, C2 ,12) 

CALL P I NT ( C2 , I 2 , C3 ,13) 

CALL PA(C3, 13,4) 

35 CALL FflPY ( C 1 , 1 1 , C2 ,12, C3 , 1 3 ) 


_I,K,L, IA4, IC4, IE4, 1 14) 







2212. 


1SC=1 

2213. 


C4( 1 )-0.D0 

2214. 


CALL SCINT(C2, 

2215. 


X»0. DO 

2218. 


IFCI3.EQ.0) GO 

2217. 


DO 1 N-1,I3 

0 *^ 1 0 

^ Am X Hat* • 


XaX+C3(N) 

2219. 

1 

CONTINUE 

2220. 

10 

XX-DSIN(A) 

2221. 


CONST-X^fXX 

2222. 


CALL FIPCC4, F4 


OOOO 

2224. 

* 

!i‘22/ . 

M 

‘“o"iOO 

22«j:<0 • 
2231. 
OO"'-!*!? 

2233 • 

2234 • 
22S*S . 
2236. 

2 >2o / • 

A* iISUSm* W « 

2239. 

2240. 
224 1 . 
•7'04-? 

Am <iIm "» W 

2243. 

2244. 

2245. 

2246 . 

‘y'i‘A’7 

4WA-M— r / ■ 

2248. 

2249 , 

■“'■"••^i t 

Am all • 

Za£.Oa'm • 

•“»**3C=IO 

^Imam Osm* m 

2254. 

2255. 
2258. 

o»“»trj"7 

Am Am Sm» / • 

2258. 

2259 . 
2280 . 
2281 . 
o •":» A o 

S* AM W a£m • 
Alt aU> ■ 

2284. 

2285 . 

8 M 

2287 . 

2288 . 
2289 . 

2270 . 

2271 . 

2272. 

A^.kM / » 

2274. 

;P;75. 

/ (Z* m 

2277 . 

/ O • 

aUaL. / .*' • 
2280 . 

1 • 

Am» Am* • 

o c 

2284 . 

2285. 
2288. 
■4 > a 1 »*m* / * 
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CALL PHPY(C1, Ii,C2» 12,04, 14) 
call PHPY ( C2 , 12 , C3 , 1 3 , C4 , 1 4 ) 
uALL tod NT ^ 03 ,13, 04 , 1 4, Cl, II, 02 , 1 4 , A ) 

IF?iS?EQ.O) GO TO 20 
DO 2 N«1,I4 
Xs=X+C4(N) 

2 CONTINUE 

20 X=X*XX-C3('i) 

XX -=2. DO 
XA-I/2.D0-I/2 

I F ( DABS ( X A ) . GE . 1 . D- i ) X X-0 . DO 
X=X~CONST#XX 

IF(DABS(X) .LT. l.D-7) X=0.D0 
X X ~2* < 2# I - 1 ) J- 1 ) ( 2^^K~ 1 ) 

A4t=-X^*DSQRT<XX) 

RETURN 

END 

SUBROUTINE FB4(B4, I, J,K>L) 

IMPLICIT REAL^^8(A-H,0~Z) 

DIMENSION Cl ( 100) , C2 ( 100 ) , C3< 100) ,G4C iOO) ,C5v ,100) 

COMMON FI 

CALL PA(C2,.I2,5) 

ISC=1 

Cl (i)=0.D0 

AUX-L-0..5DC1 

IAUX=1 

B4-0.D0 

C0NST=0.D0 

IINT=i 

lA-J-K 

DO 1 in- 1,2 
DO 2 1 1 2-- 1,2 
A-( lA+IALIX^AUX )-t^PI 
XA-DSIN(A). 

CALL SCINT(C3, 13, C4, 14, Cl , ISC, C2, 12, A) 

X-O.DO 

IF(I4.EQ.O) GO TO 10 
DO 3 N=l, 1:4 
Xi=X+C4<N) 

3 CONTINUE 

i 0 CONST~CONST+ 1 1 NT-»f X * X A 
CALL FIP(C5, 15, I ) 

CALL PMPY ( Cl , 1 1 , C3 , 1 3 , C5 , 1 5 ) 

CALL. FI'IPY ( C3 , 1 3 , C4 , 1 4 , C5 , .1 5 ) 

CALL SCINT<C4, 14, C5, 15, Cl, II, C3, 13, A) 

X=0. DO 

IF(I5.EQ,0) GO TO 11 
DO 4 N=i,X5 
X^X+C5<N) 

4 CONTINUE 

1 i B4=^B4-I INT* C X*XA“C4 C .1 ) ) 

IAUX-=-IAUX 
1 1 NT-- r I NT 
Cl ( 1 )^O.DO 

2 CONTINUE 

ia«j+k-i 

IINT=-i 
1 COi'iTINUE 
A-2.D0 
X-I/2.D0-I/2 

IF(DABS<X) .GE. l,D-i ) A=0.D0 
X-24frI-l 

B4- ( B4+ A^JCONST ) -frDSQRT ( X /2 . DO ) 

RETURN 

END 

SUBROUTINE J4K4 ( XM4 , 1 , J , N , L , I J4 , I K4 ) 

I MPL I C. I T REAL^^S ( A-H , 0 - 4 ) 

D I MENS I ON C 1 U 00 ) , C2 (100), C3 ( 1 00 ) , C4 ( 1 00 ) 

COMi'iON PI 

IF(IK4.EQ. 1) GO TO 10 
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a-([<-o.5do)^pi om:, 

GttLL FI(C2 jJ) ^ 

CALL PINKCl, I1,C2, J) Or P 

X~0. DO 
DO 1 N«i,Il 
X=X+C1 <N) 

CONTINUE 

C1(1)=C1(1)-X 

CALL PINKC2, I2,C1, II ) 

XXX-2-»J-l . 

60 TO 11 

A-( J-0.5D0)«PI 

CALL PA(C1, II, 1 ) 

CALL PINT(C2, I2,C1, ID 

XXX-i.DO 

CALL PAIc3,I3,4) 

CALL PMP Y< C 1 , I D C2 , 1 2 , C3 , 1 3 > 

ISC= 1 

C4(D=0.D0 

CALL SCINT<C2, I2,C3,I3,C4, ISC, Cl, IDA) 
X^^O.DO 

IFdS.EQ.O) GO TO 12 
DO 2 N=DI3 
X=X+C3(N) 

CONTINUE ' 

XX-DSIN(A) 

C0NST=X»XX 
CALL FIP(C4, 14, I) 

CALL PMPY(CD IDC2, 12, C4, 14) 

CALL PhjP Y < C2 ,12, C3 ,13,04,14) 

CALL SCINT<C3, 13, C4, 14, Cl , I1,C2, 12, A) 
X-O.DO 

IF<I4.EQ.O) 60 TO 13 
DO 3 N-1,14 
X«X+C4<N) 

CONTINUE 
X=X*XX-C3<1 ). 

XX =2. DO 
XA^ 1/2. DO- 1/2 

IF(DABS<XA)-. 6E. 1 .D-1 ) XX^O.DO 
X-X-CONST*XX 

I F ( DABS < X ).. LT . 1 . D-7 ) X =0 . DO 
XX~2-!^(2*I-1 )-«-XXX 
XJ4.=--~X*DSQRT(XX) 

RETURN 

END 
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